Registriert seit: 29. Jul 2003
10 Beiträge
|
Re: Function X (a: integer ): RECORDtyp ;
30. Jul 2003, 19:35
Delphi-Quellcode:
type
test = record
test1,test2 : string;
end;
// ...
function testen(string1, string2: string): test;
var
test1 : test;
begin
test1.test1 := string1;
test1.test2 := string2;
result := test1;
end;
// z.B.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := testen('Hallo, ', 'Welt!').test1;
Label2.Caption := testen('Hallo, ', 'Welt!').test2;
end;
|
|
Zitat
|