Richedit zusammenstellen
Hiho,
ich habe nun mit Lines.add Zeilen hinzugefügt. Verwende ich anschliessend einen längeren Text aus einer Datei *LoadFromfile* werden vorangegangen Zeilen überschrieben.Warum macht der das?? Wie lädt man zur Laufzeit eine Textdatei in eine StringList und fügt diese dann ein? |
Re: Richedit zusammenstellen
Normales verhalten würde ich sagen. Entweder du liest die Datei selber von Hand aus mit AssignFile und ReadLn oder du lädst sie vorher in eine StringListe und fügst dann die Zeilen der Stringliste Zeile für Zeile hinzu.
Wie das mit der StringListe funktioniert findest du in der Hilfe unter dem Stichwort TStringList. Dort sind alle Methoden mit Beispielen beschrieben. |
Re: Richedit zusammenstellen
blick nich durch... :(
|
Re: Richedit zusammenstellen
Zitat:
Delphi-Quellcode:
var
sl: TStringList; i: Integer; begin sl := TStringList.Create; try sl.LoadFromFile(Filename); for i := 0 to sl.Count-1 do Richedit1.Lines.Add(sl.Strings[i]); finally sl.Free; end;
Delphi-Quellcode:
Steht alles in der Hilfe.
var
F: TextFile; s: String; begin AssignFile(F, Filename); reset(F); while not EOF(F) do begin readln(F, s); RichEdit1.Lines.Add(s); end; |
Re: Richedit zusammenstellen
Moin Privateer,
LoadFromFile lädt immer komplett neu. Also eine TStringList erzeugen, mit LoadFromFile füllen, und dann mit
Delphi-Quellcode:
Nachteil: Sollten in der Datei Formatierungen enthalten sein, werden diese nicht mit übernommen.
var
slWork : TStringList; begin slWork := TStringList.Create; try slWork.LoadFromFile(<HIER DER PFAD DER DATEI>); RichEdit1.Lines.AddStrings(slWork); finally FreeAndNil(slWork); end; end; [edit=Luckie]Tippfehler im Source korrigiert. Mfg, Luckie[/edit] |
Re: Richedit zusammenstellen
Nachtrag: FreeAndNil gibt es erst ab D6. Die D3 version von Privateer dürfte es nicht kennen. :wink:
|
Re: Richedit zusammenstellen
Danke,
aber wo genau integrier ich es ZWISCHEN mein schon bestehenden Lines.add?? |
Re: Richedit zusammenstellen
Da wo du den Text der Datei einfügen willst.
|
Re: Richedit zusammenstellen
Alles Banane .. habs
Danke an alle! |
Re: Richedit zusammenstellen
Egal. Die Methode Add von Lines fügt immer am Ende hinzu. Willst du mitten reinschreiben / einfügen mußt du Insert nehmen und den Zeilen Index angeben.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz