Wenn du 3 records hast also
Code:
Type Film1 = record
irgendwas:string;
irgendwas2:integer;
irgendwas3:Boolean;
end;
Type Film2 = record
irgendwas4:string;
irgendwas5:integer;
irgendwas6:Boolean;
end;
Type Film3 = record
irgendwas7:string;
irgendwas8:integer;
irgendwas9:Boolean;
end;
Dann machste zum Beispiel on Button click das:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var Test:Film1
Test2:Film2;
Test3:Film3;
begin
with Test do begin
irgendwas:='';
irgendwas2:=4;
irgendwas3:=True;
end;
with Test2 do begin
.
.
.
end;
Und so weiter. Meinste das?
Wieviel Lösungen hat die Gleichung x^13=1? .... 13!