Hi, Anfänger braucht Hilfe:
Ich möchte eine Funktion erstellen in der ich eine Variable vom Typ TStrings als Funktionswert zurückliefere. Nur funktioniert das nicht. Ich habe
verschiedenes aus- probiert, aber es will einfach nicht funktionieren. Was mache ich falsch?
Bei folgendem Code steht am Schluss nur 'Hi' in der ersten Zeile von Memo1. Das heisst, es werden anscheinend keine Daten uebergeben:
function GetDate:TStrings;
var MemoList:TStrings;
x:longint;
begin
MemoList:=TStringlist.create;
MemoList.Add('Hallo');
MemoList.Add('Thom');
result:=MemoList;
MemoList.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var TestListe:TStringlist;
begin
TestListe:=TStringlist.Create;
TestListe.addstrings(GetDate); TestListe.add('Hi');
Memo1.Lines:=TestListe; { Memo1:TMemo }
TestListe.free;
end;
Ich möchte eine Funktion erstellen in der ich eine Variable vom Typ TStrings als Funktionswert zurückliefere. Nur funktioniert das nicht. Ich habe
verschiedenes aus- probiert, aber es will einfach nicht funktionieren. Was mache ich falsch?
Bei folgendem Code steht am Schluss nur 'Hi' in der ersten Zeile von Memo1. Das heisst, es werden anscheinend keine Daten uebergeben:
function GetDate:TStrings;
var MemoList:TStrings;
x:longint;
begin
MemoList:=TStringlist.create;
MemoList.Add('Hallo');
MemoList.Add('Thom');
result:=MemoList;
MemoList.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var TestListe:TStringlist;
begin
TestListe:=TStringlist.Create;
TestListe.addstrings(GetDate); TestListe.add('Hi');
Memo1.Lines:=TestListe; { Memo1:TMemo }
TestListe.free;
end;
Comment