...
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