Zitat:
procedure TForm1LoadKategorien;
var i:Integer;
TempMemo: TMemo;
Kategorien: TComboBox;
begin
TempMemo.Lines.LoadFromFile('Kategorien.txt');
setlength(KategorienTXT,TempMemo.Lines.Count div 2);
i:=1;
while i<=length(KategorienTXT) do
begin
KategorienTXT[i-1]:=TempMemo.Lines.Strings[i*2-1];
Kategorien.Items.Add(TempMemo.Lines.Strings[(i-1)*2]);
inc(i);
end;
end;
sollte so aussehen:
Delphi-Quellcode:
procedure TForm1.LoadKategorien;
var i:Integer;
begin
TempMemo.Lines.LoadFromFile('Kategorien.txt');
setlength(KategorienTXT,TempMemo.Lines.Count div 2);
i:=1;
while i<=length(KategorienTXT) do
begin
KategorienTXT[i-1]:=TempMemo.Lines.Strings[i*2-1];
Kategorien.Items.Add(TempMemo.Lines.Strings[(i-1)*2]);
inc(i);
end;
end;
Wichtig ist der Punkt zwischen TForm1 und LoadKategorien