Estaba viendo este codigo que genero marcsc:
Código Delphi
[-]
interface
TBuscador = class(TObject)
private
FIndiceCampo: Integer;
FDataSet: TDataSet;
public
constructor Create(DS: TDataSet = nil);
property DataSet: TDataSet read FDataSet write FDataSet; function Buscar(Texto: String; BuscarBOF: Boolean = True): Boolean;
end;
implementation
constructor TBuscador.Create(DS: TDataSet = nil);
begin
inherited Create;
FDataSet:= DS;
FIndiceCampo:= 0;
end;
function TBuscador.Buscar(Texto: String; BuscarBOF: Boolean = True): Boolean;
begin
Result:= False;
with FDataSet do
begin
if BuscarBOF then
begin
First;
FIndiceCampo:= 0;
end;
while (not EOF) and (not Result) do
begin
while (FIndiceCampo < Fields.Count) and (not Result) do
begin
Result:= Fields[FIndiceCampo].Text = Texto;
Inc(FIndiceCampo);
end;
FIndiceCampo:= 0;
Next;
end;
end;
end;
Neftali si tu pudieras poner un pequeño ejemplo hecho en access podria guiarme de ahi, ya que vi en el tuyo que usabas un archivo xml.
Saludos