Показать сообщение отдельно
  #9  
Старый 26.03.2017, 01:37
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 559
Версия Delphi: XE5
Репутация: 18
Восклицание

Вот собственно сам код который грузится после отображения окна программы
Код:
var
  I: Integer;
  Marker: TMarker;
  sub_icon, path: string;
begin
  path := ExtractFilePath(application.ExeName);
  Form1.GMMarker1.Clear;
  Form1.Sub_Query.First;
  if Form1.Sub_Connection.Connected then
  begin
    for I := 1 to Form1.Sub_Query.RecordCount do
    begin
        Application.ProcessMessages;
        Marker := Form1.GMMarker1.Add;
        Marker.Position.Lat := Marker.Position.StringToReal(Form1.Sub_Query.FieldByName('Sub_lat').Value);
        Marker.Position.Lng := Marker.Position.StringToReal(Form1.Sub_Query.FieldByName('Sub_lng').Value);
          if FileExists(path + '\IMAGES\'+Form1.Sub_Query.FieldByName('ICON_NAME').Value+'.png') then
           begin
            sub_icon:= path + '\IMAGES\'+Form1.Sub_Query.FieldByName('ICON_NAME').Value+'.png';
           end else
            begin
              sub_icon:= path + '\IMAGES\NN.png';
            end;
        Marker.Icon := sub_icon;
        Form1.Sub_Query.Next;
      end;
    end;
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием