Mám program,který sčítá čísla v mřížce(stringgrid)ale zajímalo by mě jak se tady použila funkce val...nebo jak bych to vysvětlil....jak používá ty proměnné,protože ani následující podmínka mi moc nepomohla....nevíte tedy jak se používá ta fce val??
procedure TForm1.Button4Click(Sender: TObject);
var s,i,x,c:integer; r:string;
begin s:=0;
for i:=1 to stringgrid1.colcount do
begin
r:=stringgrid1.cells[i-1,1];
val(r,x,c);
if c=0 then s:=s+x;
end;
edit3.Text:=inttostr(s)
end;
TIP: Přetáhni ikonu na hlavní panel pro připnutí webu



Nahlásit jako SPAM
IP: ...–
Stálý člen
Zjistit počet nových příspěvků
































