1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| procedure TForm1.chargement_dalle;
var
ind : integer;
memlat,memlon:string;
begin
memlat := '0';
Txlat := 115 -latact;
Txlon := 115 -lonact ;
If (Txlat<>0) OR (Txlon <> 0) Then
begin
//efface l'image
//image1.Picture.Clear;
end;
// tri de la string grid
strgrid1.sortcolrow(true,1);
for ind := 1 to strgrid1.RowCount-1 do
begin
if strgrid1.Cells[0,ind] = dalkey then
begin
//on trace les points sur la fiche
if memlat <> '0' then trace_point(memlat,memlon,strgrid1.cells[2,ind], strgrid1.cells[3,ind]);
memlat := strgrid1.cells[2,ind];
memlon := strgrid1.cells[2,ind];
end;
end;
// on traite le dernier point....
if memlat <>'0' then trace_point(memlat,memlon,strgrid1.cells[2,ind], strgrid1.cells[3,ind]);
end; |
Partager