Hallo Leute!
Ich habe folgendes Problem:
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:
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;
Genau diesen Quellcode möchte ich auch im Formular 2 verwenden, um mir auch dort diese Informationen anzeigen zu lassen.
Ich brauche quasi so eine Art „Verknüpfung“
Ich meine mich erinnern zu können, dass es dort Befehle gibt wie „uses
Unit X“ oder „with
Unit X do“, aber so richtig bin ich mir da nicht sicher und ich weiß auch nicht, an welche Stelle diese Befehle müssen
Wäre euch für jede Hilfe sehr dankbar
Rayne