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