Richedit zusammenstellen

[Privateer3000]

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?

[Luckie]

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.

[Privateer3000]

blick nich durch...

[Luckie]

Zitat von Privateer3000:

blick nich durch...

Geht das etwas präzisier? Und was ist daran so schwer?

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:

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;

Steht alles in der Hilfe.

[Christian Seehase]

Moin Privateer,

LoadFromFile lädt immer komplett neu.
Also eine TStringList erzeugen, mit LoadFromFile füllen, und dann mit

Delphi-Quellcode:

var
  slWork : TStringList;

begin
  slWork := TStringList.Create;
  try
    slWork.LoadFromFile(<HIER DER PFAD DER DATEI>);
    RichEdit1.Lines.AddStrings(slWork);
  finally
    FreeAndNil(slWork);
  end;
end;

Nachteil: Sollten in der Datei Formatierungen enthalten sein, werden diese nicht mit übernommen.

[edit=Luckie]Tippfehler im Source korrigiert. Mfg, Luckie[/edit]

[Luckie]

Nachtrag: FreeAndNil gibt es erst ab D6. Die D3 version von Privateer dürfte es nicht kennen.

[Privateer3000]

Danke,

aber wo genau integrier ich es ZWISCHEN mein schon bestehenden Lines.add??

[Tpercon]

Da wo du den Text der Datei einfügen willst.

[Privateer3000]

Alles Banane .. habs

Danke an alle!

[Luckie]

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.