function mit 2 ausgabewerten

[bonanza]

Hi,

ich suche nach einer möglichkeit bei einer Funktion zwei ausgabewerte zu bekommen in etwa so...

function x(a,b:string):(c,d:string)
wie kann ich das realisieren ?

über REsult kann ich ja immer nur einen wert ausgeben.

[SirThornberry]

das Thema hatten wir schon oft. Entweder nimmst du einen Record wo mehrere Werte drin sind oder nutzt var/out Parameter

[bonanza]

also ich hab jetzt ein record dafür verwand allerdings kommt ein fehler:

Delphi-Quellcode:

function tform1.finden(a,b:string):record; 
var aw:record;
  aw_zx:string;
  aw_sb:string;
end;
begin
{...}

result:=aw;
end;


{fehler:[Error] Unit1.pas(207): Identifier expected but 'RECORD' found}

was mache ich falsch ?

[Dax]

Delphi-Quellcode:

type
  TFoo = record
    a, b: string;
  end;

function Bar(s: string): TFoo;
begin
  Result.a := s + ' <- sorum';
end;

[Phoenix]

Du musst den Record doch erst vorher noch definieren.

Delphi-Quellcode:

var Adresse: record
  name: string;
  plz: integer;
  ort: string;
end;

function AdresseFinden(a, b:string): Adresse;
begin
  Result.Name := 'String 1';
  Result.Plz := 'String 2';
  Result.Ort := 'String 3';
end;

[Harry M.]

Delphi-Quellcode:

type
  TMyResult = Record
   S: String;
   I: Integer;
   end;

function Calc(A, B: Integer): TMyResult;
begin
  Result.S := IntToStr(A + B);
  Result.I := A + B;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Temp: TMyResult;
begin
  Temp := Calc(1, 1);
  showmessage(Temp.S + ' / '+ IntToStr(temp.I));
end;

[Hador]

Um auch mal die Alternative zu zeigen:

Delphi-Quellcode:

procedure MachIrgendwas(InputA, InputB: string; var OutputA, OutputB: string);
begin
  [...]
  OutputA := 'Balblub';
  OutputB := 'Balblub';
end;

Und so kann man das ganze dann aufrufen:

Delphi-Quellcode:

var
  s1, s2: String;
begin
  [...]
  MachIrgendwas('Text1', 'Text2', s1, s2);
  ShowMessage(s1); //s1 enthält jetzt sozusagen das erste Ergebnis
  ShowMessage(s2); //s2 enthält jetzt sozusagen das zweite Ergebnis
  [...]

EDIT:
An sich würden sogar nur die beiden var-Parameter reichen, wenn du dort schon die Sachen übergibst.

[RavenIV]

Zitat von Hador:

Um auch mal die Alternative zu zeigen:

Delphi-Quellcode:

procedure MachIrgendwas(InputA, InputB: string; var OutputA, OutputB: string);
begin
  [...]
  OutputA := 'Balblub';
  OutputB := 'Balblub';
end;

Wenn Du anstatt "var" "out" hinschreibst, weiis der Compiler auch gleich, was er mit den Parametern machen soll. Und auch der Mensch sieht gleich, dass er hier etwas anderst handhaben muss.