erster Buchstabe in der ListBox fehlt???

[eddy]

Hallo Torsten156,

ich hab' das mal ausprobiert. Mit ValueFromIndex kann D5 auch nicht's anfangen.

Setz' mal einen Haltepunkt und prüfe, ob in s das steht, was Du erwartest. Außerdem sollte das Label über die Eigenschaft AutoSize=true verfügen.

Mein Testprogramm:

Code:

var
  i : integer;
  s : string;

procedure TFTestMemo.Button1Click(Sender: TObject);
begin
  s := '#';
  for i := 1 to 30 do begin
    s := s + chr($40+i);
    ListBox1.Items.Add(s);
  end;
end;

procedure TFTestMemo.ListBox1Click(Sender: TObject);
begin
  s:= ListBox1.Items[ListBox1.ItemIndex];
  Label1.caption:=s;
end;

mfg
eddy