memo.text +ord +listbox.items

[aaron]

...
im memo6 stehen nun untereinander ein paar mailadressen
ich möchte sie umwandeln mit Ord und zeilenweise in eine listbox übergeben.
so wie ich es jetzt habe nimmt der immer alle zeilen des memos und packt die zeile für zeile in die listbox, was mache ich falsch?

Delphi-Quellcode:

var
  i: integer;
  s1, s2: string;
begin
  s1 := Memo6.Text;
  s2 := '&#';
  for i := 1 to Length(s1) do
    s2 := s2 + Format('%d', [Ord(s1[i])]) + ';&#';
  for i := ListBox1.items.count - 1 downto 0 do
    Listbox1.Items.add(s2);

denke es liegt daran:
s1 := Memo6.Text; kriegs nicht hin

[Christian Seehase]

Moin Aaron,

warum machst Du keine Schleife um das Memo zeilenweise abzuarbeiten?

Delphi-Quellcode:

for j := 0 to Memo1.Lines.Count-1 do begin
  s1 := Memo1.Lines[j];
  // und hier nun der entsprechende Teil Deiner Routine
  // statt s1 könntest Du auch direkt Memo1.Lines[j] verwenden
end;

[aaron]

danke für die schnelle antwort ...
siehst du den fehler?

Delphi-Quellcode:

var
  i,j: integer;
  s1, s2: string;
begin
  //s1 := Memo6.Text;
  s2 := '&#';
  for j := 0 to Memo6.Lines.Count-1 do begin
  s1 := Memo6.Lines[j];
 // for i := 1 to Length(s1) do
    s2 := s2 + Format('%d', [Ord(s1[i])]) + ';&#';
  for i := ListBox1.items.count - 1 downto 0 do
    Listbox1.Items.add(s2);
end;
end;

[Christian Seehase]

Moin Aaron,

ja, seh' ich.

Die neue for Schleife ersetzt nur die Zuweisung

s1 := Memo6.Text; durch

  s1 := Memo6.Items[j]; der Rest muss bleiben.

[aaron]

kommt nun undefinierter bezeichner "items"
auch wenn ich es oben einsetze

Delphi-Quellcode:

var
  i,j: integer;
  s1, s2: string;
begin
  //s1 := Memo6.Text;
  s2 := '&#';
  for j := 0 to Memo6.Lines.Count-1 do begin
   s1 := Memo6.Items[j];
 // for i := 1 to Length(s1) do
    s2 := s2 + Format('%d', [Ord(s1[i])]) + ';&#';
  for i := ListBox1.items.count - 1 downto 0 do
    Listbox1.Items.add(s2);

[Chewie]

Der gute Christian ist wohl etwas müde

Es muss natürlich so heißen:
s1 := Memo6.Lines[j];

[aaron]

ich glaube das ich das heute auch nicht ´mehr gebacken kriege,

Delphi-Quellcode:

 s1 := Memo6.Lines[j];
  s2 := '&#';
  for j := 0 to Memo6.Lines.Count - 1 do begin
    s1 := Memo6.Lines[j];
// bleibt hier hängen    s2 := s2 + Format('%d', [Ord(s1[i])]) + ';&#';
    for i := ListBox1.items.count - 1 downto 0 do
      Listbox1.Items.add(s2);

[Christian Seehase]

Moin Chewie,

Zitat von Chewie:

Der gute Christian ist wohl etwas müde

stimmt.

Und das wo ich gerade die ganze Zeit .Lines.Add('... eingegeben hab'

@Aaron:
Der eigentliche Fehler liegt aber darin, dass Du diese Zeile auskommentiert hast

// for i := 1 to Length(s1) do Die muss natürlich bleiben.
Statt des gesamten Textes musst Du ja jetzt die einzelnen Zeilen durchgehen.

[aaron]

jepp... und träum was schönes

[Christian Seehase]

Moin Aaron,

danke, werd' ich.

Du auch.