RichEdit.Lines in Array/Variable

[StanY]

Ich habe auf meiner Form (Form1) eine RichEdit (RichEdit1) Komponente.

Den Inhalt müsste ich nun in eine Variable/ein Array speichern und abrufen können, nur leider will das nicht so recht \:.

Versucht habe ich schon:

Delphi-Quellcode:

var
  tVar: TStrings;
begin
  tVar := RichtEdit1.Lines
end;

Das ist zwar ohne weiteres Möglich, allerdings scheint es nicht wirklich gespeichert zu sein, denn bei:

Delphi-Quellcode:

var
  tVar: TStrings;
begin
  RichEdit1.Lines := tVar;
end

Passiert gar nichts. \:

Dann geht es auch nicht, die Variable in ein Array zu speichern:

Delphi-Quellcode:

var
  tArray: Array of String;
  i: Integer;
begin
  SetLength(tArray,RichEdit1.Lines.Count);
  for i := 0 to RichEdit1.Lines.Count do begin
    tArrray[i] := RichEdit1.Lines.Strings[i];
  end;
end;

denn da gibt es ein 'Acces violation bla' zur Laufzeit.

Den Inhalt des RichEdit in ein Array zu speichern und es dann Zeilenweise auszulesen und in RichEdit1.Lines.Strings[i] zu packen, funktioniert auch nicht.

Wie ist das nun möglich? So schwer kann das ja nicht sein...

(Btw. die Variablen, die ich hier gesetzt hab sind im eigentlichen Programm private Variablen)

Vielen Dank schonmal im Vorraus.

[Matze]

Delphi-Quellcode:

var 
  tArray: Array of String; 
  i: Integer; 
begin 
  SetLength(tArray,RichEdit1.Lines.Count); 
  for i := 0 to RichEdit1.Lines.Count do begin // <== Fehler 
    tArrray[i] := RichEdit1.Lines.Strings[i]; 
  end; 
end;

Richtig wäre:

for i := 0 to RichEdit1.Lines.Count - 1 do
Edit: Tags korrigiert

[StanY]

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to Length(SFile[Num].Source)-1 do begin
    redSource.Lines.Strings[i] := SFile[Num].Source[i];
    ShowMessage(SFile[Num].Source[i]);
  end;
end;

Danke schonmal... (:

Aber, hier noch eine Frage:
Er fügt bei diesem Teil lediglich eine Zeile Zeile zu redSource (RichEdit) hinzu.

Mit ShowMEssage zeigt er aber alle Zeilen an... Warum? ^^

Also, z.b.

ShowMessage gibt hintereinander aus:
'bla erste zeile'
'bla zweite zeile'

aber in dem RichEdit-Ding steht halt nur
'bla erste zeile'

Warum? ^^

[Matze]

Du müsstest so für jede zeile ein extra Dialog bekommen (er wird in der Schleife aufgerufen).

[StanY]

Zitat von Matze:

Du müsstest so für jede zeile ein extra Dialog bekommen (er wird in der Schleife aufgerufen).

Wenn du den ShowMessage Dialog meinst: ja.

Nur warum steht es dann nicht richtig in dem Rich-Edit-Textfeld? oO

[Matze]

Versuche mal mit Lines.Add('...') die zeile hinzuzufügen, ich weiß nicht, ob es sonst geht, wenn die zeilen nicht vorhanden sind.

[StanY]

Das geht. Danke. (:

Da hätte ich aber auch drauf kommen können ^^

[Luckie]

TStrings ist nur eine abstrakte Klasse ohne implementation der Methode / Eigenschaften. Sie dient nur als Grundgerürt zum Ableiten von anderen Klassen. Nimm TStringlist und es sollte klappen. Allerdings solltest du vorher auch noch eine Instanz der Klasse mit Create erzeugen.

[StanY]

Zitat von Luckie:

TStrings ist nur eine abstrakte Klasse ohne implementation der Methode / Eigenschaften. Sie dient nur als Grundgerürt zum Ableiten von anderen Klassen. Nimm TStringlist und es sollte klappen. Allerdings solltest du vorher auch noch eine Instanz der Klasse mit Create erzeugen.

Nun belasse ich das bei der Methode, aber danke.

Werde das wohl sicher bei dem IRC clienten verwenden (:

[bigg]

mit einer stringlist kann man sich aber einiges an quellcode sparen.

Code:

List.Text := Richedit.Lines.Text;