Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by dominikkv,
18. Apr 2008
Ok, dann will ich hier mal meine Lösung Vorstellen xD
const
Delimiters = ;
Delimiters_0 = + Delimiters;
procedure GetWords(s: string; woerter: TStrings);
var
p, r: pchar;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by dominikkv,
17. Apr 2008
öhm... weißt du überhaupt was du da machst ?! :zwinker:
versuchs mal so:
procedure TForm1.SuchenButtonClick(Sender: Tobject);
var
I, Index: Integer;
begin
Index := -1;
if Listenfenster.Items.Count > 0 then
for I := 0 to Pred(Listenfenster.Items.Count) do
If Pos(autorfeld.text, Listenfenster.Items) > 0 then