поиск delphi stringgrid - есть ответ « Вопросы и ответы

Без имени, 145 просмотров

-1

Не могу понять как сделать поиск в stringgrid и чтобы результат писал в другой грид (может быть несколько результатов)

procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
begin
with strngrd1 do
for k:=1 to MyObjCount do
if strngrd1.Cells[1,k]=edit7.text then
Begin
Form2.strngrd1.Cells[0,i] := Cells[0,k];
Form2.strngrd1.Cells[1,i] := Cells[1,k];
Form2.strngrd1.Cells[2,i] := Cells[2,k];
Form2.strngrd1.Cells[3,i] := Cells[3,k];
Form2.strngrd1.Cells[4,i] := Cells[4,k];
Form2.strngrd1.Cells[5,i] := Cells[5,k];
Form2.strngrd1.Cells[6,i] := Cells[6,k];
End;
form2.Show;
end;

Ответы:

Torbins

Нужно проинициализировать переменную i. Вначале пусть будет нулем, а при каждом совпадении увеличивать ее на единицу. И еще неплохо бы вначале стирать старые данные из второго грида.

ADR-007

procedure CopyGridLine(SourceGrid, TargetGrid: TStringGrid;
SourceIndex, TargetIndex: Integer);
var
I: Integer;
begin
for I := 0 to SourceGrid.ColCount -1 do
TargetGrid.Cels[TargetIndex, I] := SourceGrid[SourceIndex, I];
end;

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.