Hi!
So richtig viel konnte ich aus deiner Aussage leider nicht entnehmen, was aber wohl mehr daran liegt, dass ich ein ziemlich n00b in Delphi bin
Habe jetzt gehört, dass ich die Prozedur aus Form 1 in Form 2 einfach so aufrufen kann: Form1.meine Prozedur
Habe die Prozedur in Form 2 also so geschrieben:
Delphi-Quellcode:
procedure TForm1.Blttern1Click(Sender: TObject);
begin
if r<anzahl then
begin
edit1.text:=saetze[r].gurtzeug;
edit2.text:=IntToStr(saetze[r].baujahr1);
edit3.text:=IntToStr(saetze[r].spruenge1);
edit4.text:=saetze[r].hauptschirm;
edit5.text:=IntToStr(saetze[r].baujahr2);
edit6.text:=IntToStr(saetze[r].spruenge2);
edit7.text:=saetze[r].reserve;
edit8.text:=IntToStr(saetze[r].baujahr3);
edit9.text:=IntToStr(saetze[r].spruenge3);
edit10.text:=saetze[r].aad;
edit11.text:=IntToStr(saetze[r].baujahr4);
edit12.text:=IntToStr(saetze[r].spruenge4);
Edit13.Text:=IntToStr(saetze[r].preis);
Edit14.Text:=IntToStr(saetze[r].index);
r:=r+1;
end
else
begin
r:=0;
end;
end;
Allerdings kommt dann folgender Fehler:
';' erwartet, aber '.' gefunden
Woran kann das liegen? Ist der Ansatz überhaupt richtig?
Vielen Dank
Rayne