Да похоже база какбэ здесь и лишняя, обычный *.ini больше подходит, но вот ещё и текстовый вариант, предварительно в блокноте нужно набрать файл (здесь с названием ini.txt), примерно с таким содержанием
Цитата:
10,10,N1
10,20,N2
10,30,N3
10,40,N4
10,50,N5
10,60,N6
|
первое число до запятой это Marker.Position.Lat, второе - Marker.Position.Lng и после последней - имя иконки, а дальше так
Код:
var
i: integer;
Marker: TMarker;
path: string;
sl, st: TStrings;
begin
path:= ExtractFilePath(Application.ExeName);
Form1.GMMarker1.Clear;
sl:= TStringList.Create;
st:= TStringList.Create;
st.Delimiter:=',';
sl.LoadFromFile(path + '\ini.txt');
for i := 0 to sl.Count-1 do
begin
st.DelimitedText:= sl[i];
Application.ProcessMessages;
Marker:= Form1.GMMarker1.Add;
Marker.Position.Lat:= Marker.Position.StringToReal(st[0]);
Marker.Position.Lng:= Marker.Position.StringToReal(st[1]);
if FileExists(path + '\IMAGES\' + st[2] + '.png') then
Marker.Icon:= path + '\IMAGES\' + st[2] + '.png'
else
Marker.Icon:= path + '\IMAGES\NN.png';
end;
sl.Free;
st.Free;
end;
должно работать, вдруг такое больше подойдёт