Hiho,

markieren

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???

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

uhje, wie denn?

markieren

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

THX ich probiers mal

Oh noch ei Prob,

wie soll ich dann ein Return machen?

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

Zitat von mirage228:

markieren

Delphi-Quellcode:

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

EDIT:

@Luckie:
Man kanns auch mit ner Zwischenvariable machen

zusammenfalten · markieren

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

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?

du kannst das memo zeilenweise abarbiten!

zusammenfalten · markieren

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;

;