program SchreibAsciiListe;
var
i: integer;
TP: TTrkPoint;
SL: TStringList;
begin
SL:=TStringList.Create;
try
for i:=0 to Track.Count-1 do begin
TP:= Track.Items[i];
SL.Add(Format('%d %7.4f %7.4f %d %5.1f %10.5f',[
i,
TP.Lat,
TP.Lon,
TP.Int,
TP.Alt,
TP.Time
]));
end;
SL.SaveToFile(ChangeFileExt(Track.FileName,'.txt'));
finally
SL.Free;
end;
Writeln('fertig');
end.