erster Buchstabe in der ListBox fehlt???

[Torsten156]

Hallo Leute,
ich habe da ein Problem mit einer ListBox! Ich lese einen Eintrag einer ListBox mit folgenden Code in eine String-Variable ein:

Delphi-Quellcode:

TForm1.ListBox1Click(Sender: TObject);
var s: string;
begin
s:= ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex];
Label1.caption:=s;
end;

Das Label1 zeigt mir jetzt den selektierten Eintrag der ListBox an, aber ohne den 1. Buchstaben!!!
Warum???

Gruß Torsten

[Keldorn]

Hallo

valuesfromindex kennt mein D6 nicht, was ist das?
aber wenn du einen Eintrag auslesen willst, geht das mit

Delphi-Quellcode:

if ListBox1.ItemIndex<>-1 then //sonst gibtne AV, wenn kein item markieret ist
  begin 
    s:= ListBox1.Items[ListBox1.ItemIndex];
    ...
  end;

[Duffy]

Hallo Torsten156,

Zitat:

Zitat von Torsten156

Delphi-Quellcode:

TForm1.ListBox1Click(Sender: TObject);
var s: string;
begin
s:= ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex];
Label1.caption:=s;
end;

Delphi-Quellcode:

TForm1.ListBox1Click(Sender: TObject);
var s: string;
begin
  s := ListBox1.Items.Strings[ListBox1.ItemIndex];
  Label1.caption := s;
end;

versuch es mal so

bye
Claus

[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

[Torsten156]

Hi Duffy,
Danke für Deinen Tip! Es funktioniert... :mrgreen:

Gruß Torsten

[UnixX]

Versuche es mal so

Delphi-Quellcode:

TForm1.ListBox1Click(Sender: TObject); 
var 
i:integer;
s: string; 
begin 
i:=listbox.Itemindex;
s:=listbox.items.strings [i];
Label1.caption:=s; 
end;

Gruß UnixX :hi:

[Duffy]

@Keldorn

Zitat:

Zitat von Delphi 7 Enterprise Hilfe

Die Eigenschaft repräsentiert den Wertbestandteil eines Strings an der angegebenen Position in Strings mit Namens/Wertepaaren.

Delphi-Syntax:

property ValueFromIndex[Index: Integer]: string;

C++ Syntax:

__property AnsiString ValueFromIndex[int Index] = {read=GetValueFromIndex, write=SetValueFromIndex};;

Beschreibung

Enthält die String-Liste eines TStrings-Objekts Namens/Wertepaare, dann lässt sich mit der Eigenschaft ValueFromIndex auf den Teil-String an einer bestimmten Indexposition zugreifen, der den Wert enthält.

Bei der Eigenschaft NameValueSeparator finden Sie eine Erläuterung zu Namens/Wertepaaren.

bye
Claus

[Keldorn]

@duffy: danke :)

[Florian H]

Äh kleine Zwischenfrage...ist es eigentlich schlimm wenn man z.B.

Code:

Listbox1.items[i]

statt

Code:

ListBox1.Items.Strings[i]

macht? :gruebel:

[sakura]

Zitat:

Zitat von Florian H

Äh kleine Zwischenfrage...ist es eigentlich schlimm

Nope, ist nicht schlimm, sonst würde es ja auch nicht gehen :lol:

...:cat:...