wenn leerzeile -> einfügen

[markus lemcke]

hi,

folgende prozedur:<br>

procedure TFrmMain.headererstellen;<br>
var<br>
i : Integer;<br>
S : string;<br>
begin<br>
for i := 0 to MmoQuelle.Lines.Count-1 do begin<br>
if (MmoQuelle.Lines[i] = '') or (i = 0) then begin<br>
//Header Hinzufügen<br>
MmoQuelle.Lines[i] := '[EventDate "?"]';<br>
MmoQuelle.Lines.Insert(i,'[PlyCount "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Annotator "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Eco " "]');<br>
MmoQuelle.Lines.Insert(i,'[Result "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Black "?"]');<br>
MmoQuelle.Lines.Insert(i,'[White "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Round "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Date "?"]');<br>
MmoQuelle.Lines.Insert(i,'[Site "?"]');<br>
MmoQuelle.Lines.insert(i,'[Event "?"]');<br>
MmoQuelle.Lines.insert(i,' ');<br>
end;<br>
end;<br>
end;<br>

soll ein memo durchscannen und immer wenn eine leere zeile kommt, diese zeilen durchscannen! macht er aber nicht bzw. total willkürlich!

wieso?

gruß

markus

[Gesine Kuhlmann]

Hi,

Für 'n Schachjournal ??

Als Schnellschuss lösche die letzte Zeile: MmoQuelle.Lines.insert(i,' ');

Gruß
Gesin

[markus lemcke]

hi,

ne! ist ein pgn-editor mit dem man aus jeder textdatei eine pgn-datei machen können soll! ich probiere es!

gruß

marku

[markus lemcke]

hi,

hat nichts gebracht! bei der dritten partie wird der header nicht mehr erstellt!

gruß

marku

[Hans-Peter Tschan]

Hallo Markus,

ich denke, das Problem liegt an der for-Schleife: Die Count-Eigenschaft liest Du zu Beginn der Schleife aus. ABER dann manipulierst Du diese ja, indem Du neue Zeilen einfügst. Der Schleifezähler wird aber nicht mehr aktualisiert.
Also besser eine while-Schleife verwenden (da wird Count dann permanent abgefragt und nicht nur 1x vor dem Schleifendurchlauf) und i manuell hochzählen.

Viele Grüße Hans-Pete

[Mario.Noack]

Problem ist nicht mehr Aktuell: Markus lässt die For-Schleife nun rückwärtslaufen. Das hat den Erfolg gebracht.<p>
Grüße, Mario Noac

[markus lemcke]

jau! ich habe zwar auch noch nicht ganz kapiet warum, aber es tut

gruß

marku

[Hans-Peter Tschan]

na, angenommen es befinden sich 10 Zeilen im Memo. Dann zählt die die for-Schleife von 0..9. Wenn jetzt z.B. an einer Stelle die Bedinung erfüllt ist und Du 12 weitere Zeilen einfügst, dann sind 22 Zeilen im Memo. Die weiteren poteniellen "Kandidanten" für die Ersetzung sind weiter nach unten gerutscht. Und Deine Schleife hört bei 9 auf.

Wenn Du die Schleife rückwärts laufen läßt, dann stört das Einfügen nicht, da der (dekrementierte) Schleifenzähler vor den eingefügten Zeilen steht.

Viele Grüße Hans-Pete

[markus lemcke]

ahja! doch ich glaube jetzt habe ich es begriffen!

gruß

marku

[markus lemcke]

hi gesine! spielst du auch schach?

gruß

marku

[Gesine Kuhlmann]

HI Markus,

Immer wenn mich Shredder zerlegt, frag' ich mich das auch ;-)

Gruß
Gesin

[markus lemcke]

hi gesine!!

*superlach* hast du auch fritz 7? dann könnten wir mal übers internet spielen! hast du eine dwz-zahl? ich habe 1901.

gruß

marku

[Gesine Kuhlmann]

Hi Markus,

Eine DWZ-Zahl hab' ich nicht. Ich spiele nicht im Verein oder auf Turnieren.

Fritz 7 hab' ich, ( aber bisher noch nie benutzt... )

Gruß
Gesin

[markus lemcke]

hi!

wenn du dich mit friz 7 im netz anmelden solltest, ich heiße "compu" !!

gruß

marku