Kennt sich hier jemand mit Delphi aus?

[Rayne]

Hallo Leute!

Ich hoffe, hier sind ein paar Leute dabei, die sich halbwegs mit Delphi auskennen

Es geht darum:

Ich habe 2 Formulare.
Im Formular 1 habe ich eine Prozedur „Blättern“, mit der ich durch meinen angelegten Datensatz blättern kann und mir die Daten in Edit-Feldern anzeigt..

Nun möchte ich im Formular 2 auf genau diese Informationen zugreifen. Ich möchte dort also genau durch denselben Datensatz mit derselben Prozedur blättern können.

Jedoch weiß ich nicht ganz genau, wie ich das bewerkstelligen kann

Die Prozedur im Formular 1 heißt:

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;

Ich habe jetzt gelesen, dass es so gehen müsste, in Form 2 einfach "TForm1.Blttern1Click(Sender: TObject)" zu schreiben.

Aber dabei kommt bei mir folgender Fehler:

';' erwartet, aber '.' gefunden

Habe ich etwas falsch gemacht?
Wie funktioniert das richtig?

Vielen Dank für eure Hilfe

Rayne

 

[sheepy]

Hallo Leute!

Ich hoffe, hier sind ein paar Leute dabei, die sich halbwegs mit Delphi auskennen

Es geht darum:

Ich habe 2 Formulare.
Im Formular 1 habe ich eine Prozedur „Blättern“, mit der ich durch meinen angelegten Datensatz blättern kann und mir die Daten in Edit-Feldern anzeigt..

Nun möchte ich im Formular 2 auf genau diese Informationen zugreifen. Ich möchte dort also genau durch denselben Datensatz mit derselben Prozedur blättern können.

Jedoch weiß ich nicht ganz genau, wie ich das bewerkstelligen kann

Die Prozedur im Formular 1 heißt:

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;

Ich habe jetzt gelesen, dass es so gehen müsste, in Form 2 einfach "TForm1.Blttern1Click(Sender: TObject)" zu schreiben.

Aber dabei kommt bei mir folgender Fehler:

';' erwartet, aber '.' gefunden

Habe ich etwas falsch gemacht?
Wie funktioniert das richtig?

Vielen Dank für eure Hilfe

Rayne

Probiers mal so:
Um von Form1 auf Form2 zuzugreifen einfach

Form2.edit2.text:=IntToStr(saetze[r].baujahr1);

solange du nur ein fenster hat reicht
edit2.text:=IntToStr(saetze[r].baujahr1);

sobald du mehrere hast einfach das entsprechende Form2 oder Form3 davorhängen.

Ich hoffe so klappts
Is schon lange her bei mir...