Kann mir jemand weiter helfen?


Abund zu will er ein Simikolon statt eines Punktes sehen obwohl das total unlogisch ist aber es funktioniert nur das in einer nächsten Zeile schon wieder ein Problem vorliegt. Abundzu meint er er kenne z.B.

Zitat:

TempMemo.Lines.LoadFromFile('Kategorien.txt');

das TempMemo nicht desshalb habe ich ihm das nochmal angegeben

Zitat:

var i:Integer;
TempMemo: TMemo;
Kategorien: TComboBox;

Wäre über einen verbesserten Quellcode dankbar

Quellcode im Anhang

Als erstes änderen bitte mal den Titel dieses Threads. Der Titel MUSS das Problem kurz anreißen.

......

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:

zusammenfalten · markieren

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

Zitat von sakura:

Als erstes änderen bitte mal den Titel dieses Threads. ....

Und hänge den Quellcode bitte als Anhang an dein Posting. Bei diesen überlangen Quellcodes scrollt man sich sonst die Finger wund! Danke

Wenn ich den Punkt dazwischen setze hat er schon gleich dort der 1. Fehler. Er will den Punkt durch ein ; tauschen.

hallo heiko,

dein formular ist form2 und nicht form 1 mach eine 2 aus der eins und dann der punkt

Hai Heiko next,

ich denke Du kannst den Fehler sehr schnell finden wenn Du eine saubere Formatierung deines Quellcodes machst.

markieren

Delphi-Quellcode:

begin
     if tabbednotebook1.ActivePage='Vorspeisen' then
begin
  with Printer do
  begin
.
.

Finde ich persönlich furchtbar. Du hast zwei begin auf einer einrückungsebene ohne das ein passendes end da ist.

zusammenfalten · markieren

Delphi-Quellcode:

begin
  if tabbednotebook1.ActivePage='Vorspeisen' then
  begin
    with Printer do
    begin
      .
      .
    end;
  end
  else
  begin
    .
    .
  end;
end;

So ist das doch viel einfach zu lesen oder?

hallo hai,

an der formatierung liegt es definitiv nicht.

dieser quellcode ist das blanke chaos

kenne ich von mir

raik

Stimmt das ist dann viel einfacher zu lesen, nur das das bei mir noch nicht der einzige fehler ist.

Zitat:

dein formular ist form2 und nicht form 1 mach eine 2 aus der eins und dann der punkt

danke, weiss selber nicht wiso ich nicht darauf gekommen bin