Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Tabelle durchsuchen ohne Angabe eines Feldnamens
3. Dez 2011, 15:39
Mir wird ganz schlecht bei dem was ich jetzt schreibe...
Delphi-Quellcode:
Found := -1;
While not DS.EOF and (Found=-1) do
begin
For i := 0 to DS.FieldCount - 1 do
begin
if pos(Uppercase(Search),Uppercase(DS.Fields[i].asString))>0 then
begin
Found := i;
break;
end;
end;
if found=-1 then DS.Next;
end;
(ungetestet)
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi ( 3. Dez 2011 um 22:04 Uhr)
|