ListBox Selektierten Text in variable

[Pseudemys Nelsoni]

huhu

also ich hab folgendes für mein irc client:

Delphi-Quellcode:

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  i,i2: integer;
  b: boolean;
begin
  if Key = #13 then
  begin
    b := false;
    if Edit1.Text <> '' then
    begin
      for i := 0 to Listbox1.Count-1 do
      begin
        if Listbox1.Selected[i] then
        b:= true;
        i2 := i;
      end;
      if b = True then
      begin
        AddColoredLine(RichEdit1, '[' + Form1.TSC.Nick + '] : ' + Edit1.Text, $00FF8284);
        Form1.TSC.Notice(ListBox1.Items.Strings[i2], Edit1.Text);
        Edit1.Text := '';
        key := #0;
      end
      else
      begin
        AddColoredLine(RichEdit1, '[' + Form1.TSC.Nick + '] : ' + Edit1.Text, $0042FFFF);
        Form1.TSC.Say('#tiberiansun', Edit1.Text);
        Edit1.Text := '';
        key := #0;
      end;
    end;
  end;
end;

Das ganze ist so das wenn kein item in der listbox markiert ist, das der Text an den channel gesendet wird (gelb). wenn ein item markiert ist sollte das geschrieben in lila auf dem richedit per notice erscheinen..... das prob ist...das egal welches item in der listbox markiert ist, es wird immer dan die gleiche person gesendet obwohl eine andere markiert ist.
kann mir jemand sagen wie ich den text eines markierten items aus einer listbox bekomme? mit Listbox1.Selected[i] scheints ja nicht zu klappen

danke

gruss silent

[Luckie]

s := ListBox1.Items[Listbox1.ItemIndex];

[Pseudemys Nelsoni]

danke =)

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  s: string;
begin
  if Key = #13 then
  begin
    if Edit1.Text <> '' then
    begin
      s := ListBox1.Items[Listbox1.ItemIndex];
      if s <> '' then
      RichEdit1.Lines.Add('Item markiert')
      else RichEdit1.Lines.Add('Nichts markiert');
    end;
  end;
end;

kannst du mir noch sagen wieso ich nen fehler bekomme wenn nichtsd markiert ist?

ich muss prüsen ob was markiert ist oder nicht

thx

[Luckie]

Wenn nichts markiert ist, hat ItemIndex den Wert -1 und liefert somit einen ungültigen String.

[Pseudemys Nelsoni]

ok thx =]

prüsen = prüfen btw