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

[Die Muhkuh]

Hiho,

Delphi-Quellcode:

if Key = 'a' then
  Listbox1.items.add('z');
.
.
.

Der Code ist schön und gut nur das nächste Prob ist das die Listbox(kann auch was anderes sein) soll die einträge nicht untereinander dazuadden sondern nebeneinander! Wie geht das???

[mirage228]

füge das ganze doch zu einer string variable temporär zusammen und adde es dann!

[Die Muhkuh]

uhje, wie denn?

[mirage228]

Delphi-Quellcode:

  ListBox1.Clear;
  // ...
  if Key = 'a' then
    ListBox1.Text := ListBox1.Text + 'z';

  // Neue Zeile machst du dann mit 
  // ListBox1.Text := ListBox1.Text + #10#13;

mfG
mirage228

[Die Muhkuh]

THX ich probiers mal

[Die Muhkuh]

Oh noch ei Prob,

wie soll ich dann ein Return machen?

[Luckie]

Die Eigenschaft Text dürfte hier der Performancekiller schlechthin sein. Da wird die Listbox jedes mal komplett neu geschrieben.

[mirage228]

Zitat von mirage228:

Delphi-Quellcode:

  // Neue Zeile machst du dann mit 
  // ListBox1.Text := ListBox1.Text + #10#13;

EDIT:

@Luckie:
Man kanns auch mit ner Zwischenvariable machen

Delphi-Quellcode:

var
  s: string;
begin
  // ListBox leeren
  ListBox1.Clear;

  // Varialbe initialisieren
  s := '';

  // .. zusätzlicher Code..
  if Key = 'a' then s := s + 'z';
  // ..
  // Umbruch :   s := s + #10#13;

  // Ab in die ListBox
  ListBox1.Text := s;

mfG
mirage228

[Die Muhkuh]

nene Mirage ich hab dich schon verstanden!

Die eingabe geht durch ein Memo! Also wenn im Memo Returns drin sind dann sollen im Listbox auch Returns drin sein


@Luckie

was meinst du damit?

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

;