Cześć.
Mam mały problem. Zbudowałem programik, który generuje jakieś dane do dwóch różnych StringGridów.
Dwa StringGridy mają po dwie kolumny a ostatni trzy. Z SG1 pobieram wartość pierwszej kolumny i wyszukuję w SG2 w kolumnie 1. Jeżeli znajdzie dopasowanie wówczas kopiuję do SG3 dane w takiej kolejności: SG3 kol 1 = dane z SG1 kol 1 , SG3 kol 2 = dane SG1 kol 2, SG3 kol 3 = dane SG2 kol 2.
Napisałem taką procedurkę, ale znajduje mi tylko jedną wartość. Wartości jest bardzo dużo i powinien mi je wyświetlić w SG3 ale tego nie robi. O to kod:
procedure TForm1.ObliczClick(Sender: TObject);
var
z,y : integer;
begin
for z := 1 to StringGrid1.RowCount do
begin
for y := 1 to StringGrid1.RowCount do
if StringGrid1.Cells[0,z-1] = StringGrid2.Cells[0,y-1] then
begin
StringGrid3.Cells[0,y-1]:=StringGrid1.Cells[0,z-1];
StringGrid3.Cells[1,y-1]:=StringGrid1.Cells[1,z-1];
StringGrid3.Cells[2,y-1]:=StringGrid2.Cells[1,y-1];
end;
Label2.Caption:='Koniec obliczeń';
end;
end;
Bardzo proszę o jakąś podpowiedź. Na pewno coś robię źle i w tym momencie nie potrafię wykryć tego błędu. Pozdrawiam