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?

markieren

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

memo.text +ord +listbox.items

memo.text +ord +listbox.items

Forumregeln