Einzelnen Beitrag anzeigen

Rayne

Registriert seit: 27. Nov 2005
7 Beiträge
 
#3

Re: Unit-übergreifend arbeiten/Datenaustausch zwischen Units

  Alt 12. Dez 2005, 20:01
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
  Mit Zitat antworten Zitat