//GeoGet 2
function ExportExtension: string;
begin
Result:='LOC';
end;
function ExportDescription: string;
begin
Result:='LOC file';
end;
function ExportHint: string;
begin
result:='Export to a LOC file';
if copy(GetCurrentLanguage,1,2)='cs' then
result:='Export do formatu LOC';
end;
function ExportHeader: string;
begin
Result:='' + CRLF
+''+CRLF;
end;
function ExportFooter: string;
begin
Result:=''+CRLF;
end;
function GetIDbyCacheSize(s:string):integer;
begin
case s of
'Not chosen': Result:=1;
'Micro': Result:=2;
'Regular': Result:=3;
'Large': Result:=4;
'Virtual': Result:=5;
'Other': Result:=6;
'Small': Result:=8;
else Result:=0;
end;
end;
function ExportPoint: string;
begin
Result:='';
if(GC.islisted) then begin
Result:=Result+' '+CRLF
+' '+CData(GC.Name)+''+CRLF
+' '+CRLF
+' Geocache'+CRLF
+' http://www.geocaching.com/seek/cache_details.aspx?wp='+GC.Id+''+CRLF
+' '+GC.Difficulty+''+CRLF
+' '+GC.Terrain+''+CRLF
+' '+IntToStr(GetIDbyCacheSize(GC.Size))+''+CRLF
+' '+CRLF;
end;
end;