memo.text +ord +listbox.items

[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;