Listbox von links nach recht's statt von oben nach unten

[mirage228]

du kannst das memo zeilenweise abarbiten!

Delphi-Quellcode:

var
  i,y  : integer;
  List: TStringList;
  s   : string;
begin
  ListBox1.Clear;
  List := TStringList.Create;

  for i := 0 to Memo1.Lines.Count -1 do
  begin
    // Restlicher Code
    for y := 1 to Length(Memo1.Lines.Strings[i]) do
    begin
     // ...
      if Memo1.Lines.Strings[i][y] = 'a' then s := s + 'z';
    end;
    // ...
    List.Add(s);
    s := '';
  end;

  ListBox1.Items.Assign(List);
  List.Free;
end;

;