in einer Textdatei nach 128 Zeichen(Bytes) ein Zeilenumbruch einfügen

[nachtstreuner]

Hallo Delphianer,

hab mal wieder ein Problem und einen rauchenden Schädel dazu.

Ein Memofeld mit einer eingelesenen Textdatei. (Siehe Bild 1).
Genau nach 128 Zeichen(Bytes) soll dort ein CR (Return) eingefügt werden, so daß das ganze wie in Bild2 dargestellt, aussieht.

Ideen ? Tips ?. Ich kann auch nicht nach einer bestimmten Zeichefolge suchen.

Danke Euch schonmal.

[DeddyH]

Mit Insert sollte das doch recht einfach gehen.

[nachtstreuner]

Vielen Dank DeddyH

wenn ich folgendes eingebe passiert gar nichts.

Code:

 memo1.Lines.LoadFromFile(sFileDTA.FileName);
  memo1.SetFocus;
  memo1.SelStart :=128;
  memo1.Lines.Insert(128,#13);

[chrisw]

Nimm mal ein #13#10, dann sollte es funktionieren !

[DeddyH]

Delphi-Quellcode:

  Memo1.SelStart := 128;
  Memo1.SelText := sLineBreak;

So geht es auch ohne Insert.

[ConnorMcLeod]

So etwas a la

Delphi-Quellcode:

if (Length(Memofeld.Text) >= 128) then
begin
  Memofeld.Text := Copy(Memofeld.Text, 1, 128) + CR + Copy(Memofeld.Text, 129, MaxInt);
end;

[nachtstreuner]

Hallo ChrisW,

danke für Deinen Tip. Es tut sich aber trotzdem nichts.

:pale:

[DeddyH]

Memo.Lines.Insert arbeitet zeilenweise, nicht zeichenweise. Hast Du meinen Vorschlag einmal versucht?

[nachtstreuner]

Danke an alle Beteiligten,

LineBreak, das funzt.

Code:

  memo1.Lines.LoadFromFile(sFileDTA.FileName);
  memo1.SetFocus;
  memo1.SelStart :=128;
  Memo1.SelText := sLineBreak;
  memo1.Refresh;

Bis zur nächsten Wissenslücke.:)

[blackfin]

Wäre es performance-technisch nicht viel geschickter, erstmal über einen FileStream 128 Bytes der Textdatei einzulesen, einen Zeilenumbruch an den Result-String ranhängen, dann den Rest der Datei lesen /anhängen und am Schluss nur nocht den Memo-Text auf den String zu setzen?
Ich benutze Memos eigentlich fast nie, aber ich hab sie für String-Operationen als Performance-Killer in Erinnerung..