kommt nun undefinierter bezeichner "items"
auch wenn ich es oben einsetze
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.Items[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);