Buscar por:

Localizar nomes com mesmo sobrenome

Código

{/importante q para localizar os Nomes com mesmo sobrenome dentro do edit antes de digitar, de um espaço e digite o sobrenome desejado}

procedure Tfrmpesqtso.Button2Click(Sender: TObject);

var

letras,cont,cota:integer;

caracter,registro:string;

begin

dm.tbtso.First;

while dm.tbtso.eof = false do

begin

registro:=dm.tbtso.fieldbyname('Cliente').asstring;

cont:=length(registro);

cota:=1;

for letras:=cota to cont do

begin

caracter:=caracter+registro[letras];

if (registro[letras+1] = char(32)) or (registro[letras+1] ='') then

 begin

  if caracter=edit3.text then

  begin

    sgtso.Cells[0,sgtso.RowCount-1]:=dm.tbtso.FieldByName('Cliente').asstring;

    sgtso.RowCount:=sgtso.RowCount+1;

   end

    else

   begin

    caracter:='';

   end;

  end;

 cota:=cota+1;

 end;

 dm.tbtso.next;

 end;

end;