Forum: Programmieren allgemein
Delphi
by Sir Rufo,
22. Jan 2011
Um aber auch was konstruktives einzuwerfen hätte ich noch folgendes:
type
TMoreResults = record
a,b : integer;
function Show : string;
end;
function TMoreResults.Show : string;
begin
Forum: Programmieren allgemein
Delphi
by Sir Rufo,
22. Jan 2011
Und nach über 100 Beiträgen sollte man auch die Delphi-Tags kennen
function TForm1.MoreResults(var value2 : integer);
begin
Result := 1;
value2 := 2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MoreResults);
Forum: Programmieren allgemein
Delphi
by Sir Rufo,
22. Jan 2011
Eine Function muss immer einen Rückgabewert haben, also wird das so nicht gehen
procedure DeineFuction(var x:Integer; var y:Integer);
begin
x:=1;
y:=2;
end;