function mit zwei Rückgabewerten?

[3_of_8]

Zitat von RavenIV:

Zitat von 3_of_8:

Delphi-Quellcode:

with test(Edit1.Text) do
begin
  s := test_String;
  i := test_Integer;
end;

Das mit dem with macht die ganze Sache noch unübersichtlicher.
Und die Funktion wird trotzdem 2x durchlaufen, weil 2x darauf zugrgriffen wird.

Die beste Lösung bisher ist das mit dem Ergebnis := ...

Unsinn.

Delphi-Quellcode:

with test('wuppdi') do
begin
showmessage(inttostr(i));
showmessage(s);
end;

wird zu:

Delphi-Quellcode:

lea edx,[ebp-$08]
mov eax,$004521b8
call test
lea edx,[ebp-$0c]
mov eax,[ebp-$04]
call IntToStr
mov eax,[ebp-$0c]
call ShowMessage
mov eax,[ebp-$08]
call ShowMessage

No further comment.