Entwickler-Ecke :: Thema anzeigen

Roadrunner116 - Mo 08.01.07 17:12
Titel: memo in TSringlist

Hallo,
kann mir Jemand sagen, wie ich den Inhalt eines Memos in ein TStringlist setzen kann?
also bei zahlen braucht man na ja IntToStr() nur wie mache ich das mit dem memo, das hat ja mehrere zeilen?

Narses - Mo 08.01.07 17:13

Moin!

Delphi-Quelltext

1:	SL.Assign(Memo1.Lines);

So. ;)

cu
Narses

GTA-Place - Mo 08.01.07 17:30

Oder so:

Delphi-Quelltext

1:	SL.Text := Memo1.Text

Narses - Mo 08.01.07 17:33

Moin!

GTA-Place hat folgendes geschrieben:

Oder so:

Delphi-Quelltext

1:	SL.Text := Memo1.Text

Ja, das geht auch; die Assign-Variante ist aber performanter und schont den Speicher, weil nicht erst (unnötig) ein String aus den Zeilen erzeugt wird und dann wieder zerlegt werden muss. ;)

cu
Narses

Blackheart666 - Mo 08.01.07 18:29

Udontknow hat folgendes geschrieben:

Hallo!

Und nicht zu vergessen, es werden bei Assign die Referenzen, die in der Objects-Liste liegen, mitkopiert. Ist zwar in diesem Falle irrelevant, aber naja. ;-)

(Sollte nur als Bsp. dienen)

Cu,
Udontknow

Manchmal kommt es mir so vor als ob man es den Anfänger hier nicht gerade leicht machen möchte, mit Diskusionen die dem Fragesteller doch eher verwirren als sie ihm helfen.

Narses - Mo 08.01.07 18:58

Moin!

Blackheart666 hat folgendes geschrieben:

Manchmal kommt es mir so vor als ob man es den Anfänger hier nicht gerade leicht machen möchte, mit Diskusionen die dem Fragesteller doch eher verwirren als sie ihm helfen.

Wo ist dein Problem?! :nixweiss: :|

Der Fragesteller hat doch nun eine Auswahl von Ansätzen, mit Begründung, warum dies oder jenes (und wohlgemerkt: Einzeiler! wo da jetzt die Komplexität zur übermäßigen Verwirrung führt... :gruebel:). Wenn´s ihn nicht weiter interessiert, kann er einen beliebigen nehmen und gut - will er "mehr" wissen, hat er genug Ansätze dafür. ;)

cu
Narses

Roadrunner116 - Di 09.01.07 17:53

Ich bins nochmal....

ich habe mehrere Edits und ein Memo in ein Textdokument espeichert (Funktioniert)!
Jetzt möchte ich diese Inhalte wieder in das passende Feldladen, das klappt bis auf das memo, dort wird nur eine zeile angezeigt weil ich nur "datalist[56]" abgerufen habe.
Jetz möchte ich da smit einer Schleife regeln:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  ...

  edit50.text := datalist[50];
  edit51.text := datalist[51];
  edit52.text := datalist[52];
  edit53.text := datalist[53];
  edit54.text := datalist[54];
  edit55.Text := datalist[55];
  i := 56;
  while datalist[i] <> '' do
    begin
      i:=i+1;
      Memo_Bemerkungen.Lines.Add(datalist[i]);
    end;

Ich bekomme aber die Fehlermeldung

Zitat:

Im Projekt ist eine Exception der Klasse EStringListError aufgetreten. Meldung: 'Listenindex überschreitet das Maximum(58)'

Wa stimmt nicht?

* Edit: 'Smilies in dieser Nachricht deaktivieren'

Moderiert von Christian S.: Quote- durch Delphi-Tags ersetzt

Roadrunner116 - Di 09.01.07 17:57

ein fehler gefunden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  i := 56;
  while datalist[i] <> '' do
    begin
      Memo_Bemerkungen.Lines.Add(datalist[i]);
      i:=i+1;
    end;

nicht

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  i := 56;
  while datalist[i] <> '' do
    begin
      i:=i+1;
      Memo_Bemerkungen.Lines.Add(datalist[i]);
    end;

Moderiert von Christian S.: Quote- durch Delphi-Tags ersetzt

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!