Hi,
danke für eure Antworten!
@jbg: Ich weiß das ein var genügt
ist bei uns zur besseren Lesbarkeit aber vorschrift.
Hab das ganze jetzt so abgeändert, allerdings schreibt er mir alles in eine Zeile.
Delphi-Quellcode:
try
AResultList := TStringList.Create;
AResultList.Assign(Edit.Lines);
Linemax := Edit.Lines.Count-1;
ProgressBar.Position := 0;
ProgressBar.Max := Linemax;
Edit.Lines.Clear;
for i := 0 to Linemax do
begin
with Edit do
begin
SelText := AResultList.Strings[i]+#10;
SelStart := 9;
SelLength := 5;
SelAttributes.Color := clBlue;
SelAttributes.Style := [fsBold];
end;
ProgressBar.Position := Progressbar.Position + 1;
end;
FreeAndNil(AResultList);
result := true;
except
FreeAndNil(AResultList);
result := false;
end;
Wenn ich einen Zeilenumbruch so wie oben mit +#10 einfüge, habe ich aber zwischen den Zeilen immer einen großen abstand, ich will ja aber dass er beim zurückschreiben jeweils in nur eine Zeile des RichEdits auch eine Zeile aus der StringList schreibt und diese wie angegeben formatiert, also von stelle 9 für 5 zeichen die farbe Blau und fett..... Wie gesagt das funktioniert noch nicht so richtig.
Gruß
AnyKey