Memo befüllen in Timer = leer

[Mohadrim]

Der Timer Timer1 ist über einen Button aktivert worden das geht ja alles wie gesagt auch das, was noch nach der For Schleife kommt wird umgesetzt genauso wie das davor.

time ist einer Zähler der beim Button klick auf 10 gesetzt wird und mit jedem Timer1 Event um 1 runtergezählt wird. r ist ein Integer und dient mir als Schranke damit das Programm weiß ok r = 1 also Zeile nicht mehr hinzufügen. Das Funktioniert auch super Problem ist eben nur, dass es in der procedur TForm1.Timer1Timer nicht mehr geht. Bei FormShow oder direkt bei Button1.Click funktioniert der Code auch.

[haentschman]

Moin...

Zitat:

time ist einer Zähler der beim Button klick auf 10 gesetzt wird und mit jedem Timer1 Event um 1 runtergezählt wird

...das sehe ich im Code nicht.

PS: time ist eine denkbar ungünstige Benamsung der Variable... Siehe himitsu: http://docwiki.embarcadero.com/Libra....SysUtils.Time
PS1: Das kommt von der nicht Benutzung von sprechenden Variablen wie time oder r. Die Kollidierung mit Systemvariablen kann dann nicht passieren...
PS2: Einen Couter würde ich statt den falschem time in CurrentStep (oder so) umbenennen.

[nahpets]

Mal im Debugger gefragt, ob diese Bedingung überhaupt erfüllt ist? if time = 0
Time ist übrigens die akuelle Uhrzeit, es sei denn, es gibt eine globale Variabel gleichen Namens, was aber äußerst ungünstig wäre. Bitte bennne die Variabel Time um, um Fehler durch Namenskonflikte ausschließen zu können.

Delphi-Quellcode:

  Memo1.Clear;
  if time = 0 then
  begin
    Timer1.Enable := false;
    Memo1.Lines.LoadFromFile('dateiname');
    Memo2.Clear;
    for i := 0 to Memo1.Lines.Count-1 do begin
      if (Pos('#Hier_nicht_mehr', Memo1.Lines[i]) <> 0) and (r = 0) then
        r := 1;
      if r = 0 then
        Memo2.Lines.Add(Memo1.Lines[i]);
    end;
  end;

Wenn bei dem von mir geänderten Quelltext das Memo1 immer leer ist, dann ist die Bedingung time = 0 nicht erfüllt.
Der Fehler liegt höchstwahrscheinlich nicht in der For-Schleife, sondern entweder im Timerhandling oder in der Programmlogik des Timerereignisses irgendwo vor Timer1.Enable := false;

[a.def]

Delphi-Quellcode:

if (Pos('#Hier_nicht_mehr', Memo1.Lines[i]) <> 0) and (r = 0) then
 r := 1;
if r = 0 then
 Memo2.Lines.Add(Memo1.Lines[i]);

Warum nicht...

Delphi-Quellcode:

if Pos('#Hier_nicht_mehr', Memo1.Lines[i]) > 0 then
 Break // Schleife beenden statt den Quatsch mit r := und if r = zu machen
else
 Lines.Add(Memo1.Lines[i]);

[Bernhard Geyer]

 Memo1.Lines.LoadFromFile('dateiname'); Ich hoffe 'dateiname' ist ein vollständiger Dateiname mit Pfad.
Ansonsten ist es zufall ob deine Datei (neben der Exe) genommen wird.

[p80286]

Und wie/wo ist r vorbelegt worden?
wenn r=4 dann kannst Du das alles in die Tonne kloppen!

Gruß
K-H

[himitsu]

Also, im Prinzip wurden ja alle Möglichkeiten schon mehrmals genannt
und es gibt nur 3 Problemzonen und eine Aufgabenstellung, die nun endlich mal geklärt werden sollten.

• Time ist nie 0, dann geht es nie in den Code
• die Datei ist leer, dann passiert nichts in der Schleife
• r ist nicht initialisiert, steht zu Beginn auf sonstwas und somit trift niemals das if i=0
• und du solltes lernen den Debugger zu benutzen, dann würdest du bestimmt sofort den Grund sehen können
  > Haltepunkte auf die 3 eventuellen Problemzeilen und angucken ob in den Variablen auch etwas Richtiges drin steht