hi
kurze Frage (keine Ahnung ob das vielleicht in einen anderen Thread gehört... wenn ja bitte ich um verzeihung
)
Kann man in einer Listbox einzelne Stringkomponenten hervorheben, indem man sie zB rot markiert? wenn ja, wie?
Etwas konkreter: Versuche mich gerade mit arrays und habe jetzt jeden wert des arrays in eine listbox einlesen lassen. Wenn ich nun eine bestimmte zahl suche (mit hilfe eines editfeldes) kann ich diese dann in der listbox hervorheben?
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure TForm1.suchen(Sender: TObject);
var Tom: array[1..100] of Integer;
var i, sicher, eingabe1: Integer;
begin
ListBox1.Clear;
ListBox2.Clear;
Randomize;
for i:= 1 to 100 do
begin
sicher:= Random(6)+1;
Tom[i]:= sicher;
ListBox1.Items.Add(IntToStr(sicher));
end;
eingabe1:= StrToInt(edit1.Text);
for i:= 1 to 100 do
begin
if Tom[i] = eingabe1 then
ListBox2.Items.Add(IntToStr(i));
end;
end;
end. |
