//GeoGet 2
function ExportExtension: string;
begin
result := 'GPX';
end;
function ExportDescription: string;
begin
result := 'Handy Geocaching Arcao Edition GPX Export';
end;
function ExportHeader: string;
begin
Result := '' + CRLF;
Result := Result + '' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' Geoget data file' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + CRLF;
end;
function ExportFooter: string;
begin
result := '' + CRLF;
end;
function ExportPoint: string;
var
s: string;
n: integer;
begin
Result := '';
//Export for Geocaches
if GC.IsListed then
begin
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + GC.ID +'' + CRLF;
Result := Result + ' ' + cdata(GC.Name + ' by ' + GC.Author
+ ' (' + GC.Difficulty + '/' + GC.Terrain + ')') +'' + CRLF;
Result := Result + ' ' + cdata(GC.Comment) +'' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + cdata(GC.Name + ' by ' + GC.Author) + '' + CRLF;
Result := Result + ' ' + CRLF;
if GC.IsFound then
Result := Result + ' Geocache Found' + CRLF
else
Result := Result + ' Geocache' + CRLF;
Result := Result + ' Geocache|' + GC.CacheType + '' + CRLF;
Result := Result + ' ' + CRLF;
if GC.IsDisabled then
s := 'available="False"'
else
s := 'available="True"';
if GC.IsArchived then
s := s + ' archived="True"'
else
s := s + ' archived="False"';
s := 'id="' + GC.CacheID +'" ' + s;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + cdata(GC.Name) + '' + CRLF;
Result := Result + ' ' + cdata(GC.Author) +'' + CRLF;
if GC.OwnerID <> '' then
Result := Result + ' ' + cdata(GC.Author) +'' + CRLF;
Result := Result + ' ' + GC.CacheType +'' + CRLF;
Result := Result + ' ' + GC.Size +'' + CRLF;
Result := Result + ' ' + GC.Difficulty +'' + CRLF;
Result := Result + ' ' + GC.Terrain +'' + CRLF;
Result := Result + ' ' + GC.Country +'' + CRLF;
Result := Result + ' ' + GC.State +'' + CRLF;
Result := Result + ' ' + cdata(Html2Text(GC.LongDescription)) +'' + CRLF;
Result := Result + ' ' + cdata(GC.Hint) +'' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF + CRLF;
end;
//Export for Waypoints
for n := 0 to GC.Waypoints.Count - 1 do
if GC.Waypoints[n].IsListed then
begin
Result := Result + ' ' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + GC.Waypoints[n].ID +'' + CRLF;
Result := Result + ' ' + cdata(GC.Waypoints[n].Description) + '' + CRLF;
Result := Result + ' ' + cdata(GC.Waypoints[n].Name) + '' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + cdata(GC.Waypoints[n].Name) + '' + CRLF;
Result := Result + ' ' + CRLF;
Result := Result + ' ' + GC.Waypoints[n].WptType + '' + CRLF
Result := Result + ' Waypoint|' + GC.Waypoints[n].WptType + '' + CRLF;
Result := Result + ' ' + CRLF + CRLF;
end;
end;