Einzelnen Beitrag anzeigen

aaron

Registriert seit: 18. Feb 2003
202 Beiträge
 
Delphi 2007 Professional
 
#1

memo.text +ord +listbox.items

  Alt 26. Jun 2003, 00:44
...
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
  Mit Zitat antworten Zitat