title image


Smiley Re: Funktion soll zwei werte zurückgeben
So geht das nicht.



aber man kann einen kleinen umweg gehen.



type

TIrgendwas = record

string1,string2 : string;

end;



function wastun(a,b: string): TIrgendwas;

begin

Result.string1 := a;

Result.string2 := b;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

temp : TIrgendwas;

begin

temp := wastun('test1','test2');

showmessage(temp.string1 + ' ' + temp.string2);

end;
TDelphiAnfaenger


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: