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

[DeddyH]

Man kann die Datei auch erst in eine Stringliste einlesen, deren Text in eine Stringvariable kopieren, dort mit Insert den Zeilenumbruch einfügen und dann Memo.Text zuweisen. Aber ob der ganze Aufwand für einen einzigen Zeilenumbruch lohnt? Ich denke mal, mit den SelXXX-Methoden geht das auch ausreichend fix.

[p80286]

Zitat:

Zitat von blackfin (Beitrag 1101142)

...über einen FileStream 128 Bytes der Textdatei einzulesen, einen Zeilenumbruch an den Result-String ranhängen, dann den Rest der Datei lesen /anhängen .

Wenn man sich die Darstellung anschaut, handelt es sich wohl um Datensätze mit fixer Satzlänge (128Byte).
Da sollte das wohl das Mittel der Wahl sein.


Gruß
K-H

[Jumpy]

Ich habe gerade auch die Aufgabe bekommen, eine Klasse zu bauen, die DTA-Dateien checkt/analysiert und was du da hast kommt mir daher sehr bekannt vor.

Wäre es daher nicht sinnvoller A und E Teil jeweils in ein eigenes Edit-Feld zu schreiben und dann nur den C-Teil in eine Memo-Box? Das erscheint mir übersichtlicher.

Falls es sich nicht um DTA handelt nehm ich alles zurück :-D

[Lannes]

Zitat:

Zitat von DeddyH (Beitrag 1101143)

Ich denke mal, mit den SelXXX-Methoden geht das auch ausreichend fix.

genauso ist es, mit SelXXX kann man sogar schneller Zeilen anfügen als mit Add().

Ich hab da vor kurzem mal diesbezüglich die Geschwindigkeiten getestet, das war auf ein RichEdit bezogen, dürfte beim Memo aber ähnlich sein.


http://www.delphi-forum.de/viewtopic...=640588#640588