Ĺadny brzuch
Witam
mam taki problem, a mianowicie napisałem program który pobiera z bazy danych mssql server dane np firmy adres nazwe firmny itd. wpisałem wszystko do tabelki stringgrid i potrzebuje procedurki lub funkcji za pomoca kturej znajde określony wiersz w tabelce napisałem taką procedure i działa znajuje wiersz ale go nie zaznacza prosze o pomoc
dzieki
procedure Tform_edytuj_firme.Edit1Change(Sender: TObject);
var
slowo,pom : string;
i,j : integer;
begin
pom:='';
for i := 1 to sg_edytuj_firme.RowCount-1 do
begin
slowo:=sg_edytuj_firme.Cells[2,i];
for j := 1 to length(slowo)do
begin
pom := pom+slowo[j];
if Edit1.Text = pom then
begin
application.MessageBox('znaleziono rekord','Ok',MB_ok);
// tutaj powinna byc jakaś funkcja podswietlająca wiersz w tabelce
end;
end;
pom:='';
end;
end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
mam taki problem, a mianowicie napisałem program który pobiera z bazy danych mssql server dane np firmy adres nazwe firmny itd. wpisałem wszystko do tabelki stringgrid i potrzebuje procedurki lub funkcji za pomoca kturej znajde określony wiersz w tabelce napisałem taką procedure i działa znajuje wiersz ale go nie zaznacza prosze o pomoc
dzieki
procedure Tform_edytuj_firme.Edit1Change(Sender: TObject);
var
slowo,pom : string;
i,j : integer;
begin
pom:='';
for i := 1 to sg_edytuj_firme.RowCount-1 do
begin
slowo:=sg_edytuj_firme.Cells[2,i];
for j := 1 to length(slowo)do
begin
pom := pom+slowo[j];
if Edit1.Text = pom then
begin
application.MessageBox('znaleziono rekord','Ok',MB_ok);
// tutaj powinna byc jakaś funkcja podswietlająca wiersz w tabelce
end;
end;
pom:='';
end;
end;