Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
4. Dez 2002
Fange ich mal von vorne an:
entries := TStringList.Create;
entries := getAllFiles(MAIN_PATH+langs+'\*.*'#0);
Die erste Zeile erstell ein Speicherloch, da getAllFiles eine neue StringListe zurückliefert.
function getAllFiles(path: string): TStringList;
var
tempResult: TStringList;
s: string;
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
4. Dez 2002
Recht weit am Ende ist folgende Zeile: for j := 0 to entries.Count do begin
ändere auf : for j := 0 to entries.Count-1 do begin
Dann sollte es gehen.