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
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
Comment