Показать сообщение отдельно
  #10  
Старый 26.03.2017, 12:30
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Да похоже база какбэ здесь и лишняя, обычный *.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;
должно работать, вдруг такое больше подойдёт
Ответить с цитированием