Problem zB ; statt .

[Heiko next]

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

[sakura]

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

...:cat:...

[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

[Sharky]

Zitat:

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 :-D

[Heiko next]

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

[kiar]

hallo heiko,

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

[Sharky]

Hai Heiko next,

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

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.

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?

[kiar]

hallo hai,

an der formatierung liegt es definitiv nicht.

dieser quellcode ist das blanke chaos :mrgreen:

kenne ich von mir :mrgreen:

raik

[Heiko next]

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

[Heiko next]

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 :!: :?

[mytar]

Beim Printer könntest du was optimieren, d.h.

TTabbedNoteBook hat TWinControl beerbt,

TObject
TPersistent
TComponent
TControl
-> TWinControl
TCustomTabControl
TTabbedNotebook

d.h. du kannst mit der Methode PainTo()

direkt auf das Handle des Printers (Printer.Canvas.Handle) zugreifen.

Schau dir PaintTo() doch mal in der OH an.

Ich hoffe das nützt dir was.

mytar

[sakura]

Hallo Heiko. Du wurdest im Thread zweimal aufgefordert Änderungen am Titel/Posting vorzunehmen und von mir via PM. Du scheinst die Warnung nicht ernst zu nehmen - sorry.

Zur Klärung bleibt Dir immer noch eine PM an mich.

* * * UNLOCKED * * *
10 Minuten Zeitlimit

...:cat:...

[kiar]

hallo heiko

ändere bitte den threadtitel, die katze ist heute kein schmusekater :mrgreen:

raik

[mytar]

Um nochmal zum Printer zurückzukommen:

du kannst dann mit

Delphi-Quellcode:

TabbedNoteBook1.PrintTo(Priner.Canvas.Handle, X, Y);

direkt ins Canvas des Printer reinschreiben.

mytar

[sakura]

:thumb: Jetzt sind alle zufrieden - hoffe ich :mrgreen:

...:cat:...

[Heiko next]

Danke sakura,

ich werde mir das mir PaintTo() mal in der OH ansehen. Bin nicht so vertraut damit. Danke für den Hinweis