Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi herausfinden ob das erste zeichen in einer listbox eine 1,2, (https://www.delphipraxis.net/3492-herausfinden-ob-das-erste-zeichen-einer-listbox-eine-1-2-a.html)

aaron 15. Mär 2003 20:50


herausfinden ob das erste zeichen in einer listbox eine 1,2,
 
wie kann ich herausfinden, ob das erste zeichen in einer listbox eine 1,2,3,4 oder 5 ist...

Yheeky 15. Mär 2003 21:05

Hi Aaron!

Das geht so:

Code:
const
  SuchendeZahl = '12345'; // Hier kommen die Zahlen rein, die du suchen möchtest

...

procedure TForm1.Button1Click(Sender: TObject);
var I, J: byte;
begin
for I := 0 to ListBox1.Items.Count-1 do
    begin
    for J := 1 to Length(SuchendeZahl) do
        begin
        if Copy(ListBox1.Items[I],0,1) = SuchendeZahl[J] then
        ShowMessage('"' + SuchendeZahl[J] + '" gefunden in Zeile: ' + IntToStr(I+1));
        end;
    end;

end;
Gruß Yheeky

Gregor 15. Mär 2003 22:00

wenn ich die frage erweitern düfte: kann man an diese stelle bildereinbinden :?: warscheinlich nicht, aber gibts solche möglichkleiten mir anderen objekten die aber nicht zu schwer zu programmieren sein sollten :)

aaron 15. Mär 2003 22:11

@Yheeky
danke, das funktioniert sehr gut :)

aaron 15. Mär 2003 23:03

noch ne frage, wie kann ich nur eine message für die gerade ausgewählte zeile in der listbox anzeigen...?

Daniel B 15. Mär 2003 23:13

Hallo aaron,

in der OnClick-Prozedur der ListBox, schreibst Du folgendes:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(ListBox1.Items.Strings[i]);
end;
Wobei i der Index des gewünschten Eintrages ist.

Grüsse, Daniel :hi:

Nachtrag: Das nächste mal Bitte ein neuen Thread für eine neue Frage aufmachen. Danke!

aaron 15. Mär 2003 23:16

das sollte keine neue frage sein, bezog sich auf die erste frage, dort wird ja für jede zeile eine message ausgegeben, sollte aber nur seine wenn eine ausgewählt wurde. auweja, drücke ich mich so undeutlich aus...

aaron 15. Mär 2003 23:28

hat sich erledigt, habs rausgefunden
vielen dank an alle :dancer:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz