Einzelnen Beitrag anzeigen

jungdelphin

Registriert seit: 29. Jul 2003
10 Beiträge
 
#4

Re: Function X (a: integer ): RECORDtyp ;

  Alt 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;
  Mit Zitat antworten Zitat