Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
Ein bisschen Denkleistung kann man aber schon erwarten. Letzte Hilfe in dieser Sache:var gefunden: Boolean;
i, iCnt: integer;
l: TListItem;
begin
gefunden := false;
i := 0;
while not gefunden and (i < Form3.ListView1.Items.Count) do
begin
if Form3.ListView1.Items.Caption = Edit1.Text then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
Wie wäre es denn so?var gefunden: Boolean;
i: integer;
begin
gefunden := false;
i := 0;
while not gefunden and (i < Form3.ListView1.Items.Count) do
begin
if Form3.ListView1.Items.Caption = Edit1.Text then
begin
gefunden := true;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
Sry, mein Fehler. Ersetz mal eine Zeileif ListView.Items = Edit.Text then
inif ListView.Items.Caption = Edit.Text then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
Mit ListView.Items.Add auf dem anderen ListView. Evtl. vorher mit Clear alle Einträge löschen. F1 hilft ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
Ich verstehe nicht, was daran so schwierig sein soll.gefunden := false;
for i := 0 to ListView.Items.Count - 1 do
if ListView.Items = Edit.Text then
begin
gefunden := true;
break;
end;
Oder ohne break mit einer while-Schleife:gefunden := false;
i := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
18. Nov 2007
In einer Schleife durchlaufen und vergleichen, was anderes wüsste ich nicht.