BGAFC Vendégkönyv

Σ: 1 post

OrkenWhite alias "OrkenWhite az idióta"

#5, Főfasz (1004)

1349 | #3590 | ^ | Idézet | Tue, 01 Sep 2015 20:22:27 +02

84.2.*.*

*.dsl.pool.telekom.hu

@TCH:
A Pascallal sikerült ződágra vergődni?

Megyeget, tanulok.

De pl. egy Lazarus projectben lehet olyat, hogy az unit2 lássa az unit1 (publikus) változóit?

Meg ennek a kódnak akkor vehető észre a jelenléte, amikor betűt ütok be szám helyett. Akkor is egy error.

procedure TForm2.FormClick(Sender: TObject);
begin
  begin
  ptrs_c;
  for i := 1 To captionCount do
  begin
    UnNumi[i] := StrToInt(UnNumA[i]^.Text);
    if ChCheckBox.Checked = true Then
    begin
    MSumA[i]^.Caption := IntToStr(UnNumi[i] * chi[iid[i]]);
    SumAll.Caption := IntToStr(StrToInt(MSumA[i]^.Caption) + StrToInt(SumAll.Caption));
    end
    else if EnergyCheckBox.Checked = true Then
    begin
    MSumA[i]^.Caption := IntToStr(UnNumi[i] * energyi[iid[i]]);
    SumAll.Caption := IntToStr(StrToInt(MSumA[i]^.Caption) + StrToInt(SumAll.Caption));
    end
    else if FatCheckBox.Checked = true Then
    begin
    MSumA[i]^.Caption := IntToStr(UnNumi[i] * fati[iid[i]]);
    SumAll.Caption := IntToStr(StrToInt(MSumA[i]^.Caption) + StrToInt(SumAll.Caption));
    end;
  end;
end;
end;

Ezek a CheckBox nevűek egy csoportban lévő Radiobuttonok.

Meg még van min agyalnom.
Mondjuk egy olyan dologhoz, ami egy étel nevét, és tápanyagtartalmát tartalmazza, felesleges SQL, vagy inkább olvasson szöveges fájlból?