www.map-info.ru :: Просмотр темы - Как изменить данные в DAT файле MapInfo (Delphi 7+MapX 4)
                               РќР° главную страницу сайта

 
                                
ВходВход    РегистрацияРегистрация    ПрофильПрофиль    ПользователиПользователи    ГруппыГруппы    FAQFAQ    ПоискПоиск  

 
   Список форумов www.map-info.ru | Форум - 'MapX' Добавить ответ
Предыдущая тема :: Следующая тема  
Автор Сообщение
DOS



Зарегистрирован: 26.03.2007
Сообщения: 4

СообщениеДобавлено: Пт Мар 30, 2007 12:45 am    Заголовок сообщения: Как изменить данные в DAT файле MapInfo (Delphi 7+MapX 4) Добавить ответ со ссылкой на данный текст

Как программно из-под Delphi при помощи MapX занести/изменить данные в таблицах MapInfo (например, номер дома)??? Очень нужно!!!

И как вывести данные из этой таблицы в StringGrid например?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
DOS



Зарегистрирован: 26.03.2007
Сообщения: 4

СообщениеДобавлено: Вт Апр 03, 2007 12:25 pm    Заголовок сообщения: Re: Как изменить данные в DAT файле MapInfo (Delphi 7+MapX 4 Добавить ответ со ссылкой на данный текст

Народ, неужели никто не может мне помочь или считаете, что вопрос слишком прост для ответа на него? :cry:
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
DOS



Зарегистрирован: 26.03.2007
Сообщения: 4

СообщениеДобавлено: Ср Апр 04, 2007 11:23 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

Отвечаю на свой же вопрос. Вот что получилось реализовать (основные моменты кода). Данные записались!

var
Form1: TForm1;
DomaLayer: Layer;
DomaData: Dataset;
RowX:CMapXRowValues;

procedure TForm1.FormCreate(Sender: TObject);
begin
Map1.Layers.Add(ExtractFilePath(ParamStr(0)) + '\Sev_nsk\DOMA.TAB',1);
DomaLayer := Map1.Layers.Item('DOMA');
DomaData:=Map1.Datasets.Add(miDataSetLayer, DomaLayer, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
DomaLayer.LabelProperties.Style.TextFontColor:=miColorBlack;
DomaLayer.LabelProperties.Dataset:=DomaData;
DomaLayer.AutoLabel:=true;
DomaLayer.LabelProperties.DataField:=DomaData.Fields.Item('N');
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to DomaData.RowCount do //заполнение поля порядковыми числами
begin
RowX:=DomaData.RowValues;
RowX.Item(4).Value:=i;
DomaLayer.UpdateFeature(i,EmptyParam,RowX);
end;

Может ещё кому пригодится! Помощь и взаимоподдержка приветствуются. 8)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
pv_pv



Зарегистрирован: 30.12.2008
Сообщения: 3

СообщениеДобавлено: Пн Янв 05, 2009 11:48 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

спасибо пригодилось
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
baba11



Зарегистрирован: 08.11.2014
Сообщения: 1

СообщениеДобавлено: Сб Ноя 08, 2014 9:55 am    Заголовок сообщения: Добавить ответ со ссылкой на данный текст

мы их просто рисовали разными цветами, в одном слое. Но сейчакс вообще ушли от MapX, уж больно все сложно с ним, хотя свои плюсы тоже есть




________________________
http://en.wikipedia.org/wiki/EC-Council
https://www.facebook.com/JuniperNetworks
pass4sure.co.uk
http://www.youtube.com/user/Apple
http://www.icdl.com/
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
   Список форумов www.map-info.ru | Форум - 'MapX' Добавить ответ
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Top.Mail.Ru