Operuję na stringgridzie i mam problem z edycją danego elementu, element ma być edytowany wtedy gdy dane z 3 editow ktore są na w ifie bedą takie same jak w 3 pierwszych pozycjach w danym elemencie listy. Program kompiluję się ale nie działa. Jakieś wskazówki? Poniżej wstawiam kod. Dodam jeszcze ze nie czyszczą się także edity....
procedure TForm2.Button5Click(Sender: TObject);
var
p: PElement;
t: integer;
begin
t:=0;
while p <> nil do
begin
if (p^.marka=edit28.Text) and (p^.typ=edit29.Text) and (p^.cena=edit30.Text) then
begin
p^.marka := Edit16.text;
p^.typ := Edit17.text;
p^.cena := Edit18.text;
p^.maxv := Edit19.text;
p^.cyl := Edit20.text;
p^.km := Edit21.text;
p^.zuzyciepaliwa := Edit22.text;
p^.tto100 := Edit23.text;
p^.ABS := Edit24.text;
p^.wspomkier := Edit25.text;
p^.poduszkipow := Edit26.text;
p^.pojsilnika := Edit27.text;
begin
with stringgrid1 do
begin
cells[1,t+1]:=p^.marka;
cells[2,t+1]:=p^.typ;
cells[3,t+1]:=p^.cena;
cells[4,t+1]:=p^.maxv;
cells[5,t+1]:=p^.cyl;
cells[6,t+1]:=p^.km;
cells[7,t+1]:=p^.zuzyciepaliwa;
cells[8,t+1]:=p^.tto100;
cells[9,t+1]:=p^.ABS;
cells[10,t+1]:=p^.wspomkier;
cells[11,t+1]:=p^.poduszkipow;
cells[12,t+1]:=p^.pojsilnika;
end;
begin
edit16.Clear;
edit17.Clear;
edit18.Clear;
edit19.Clear;
edit20.Clear;
edit21.Clear;
edit22.Clear;
edit23.Clear;
edit24.Clear;
edit25.Clear;
edit26.Clear;
edit27.Clear;
end;
end;
end
else
p := p^.next;
inc(t);
end;
end;
Z góry dziękuję za pomoc.