Problem zB ; statt .

[djmasi]

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