Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
DOS
Зарегистрирован: 26.03.2007 Сообщения: 4
|
Добавлено: Пт Мар 30, 2007 12:45 am Заголовок сообщения: Как изменить данные в DAT файле MapInfo (Delphi 7+MapX 4) |
|
|
Как программно из-под Delphi при помощи MapX занести/изменить данные в таблицах MapInfo (например, номер дома)??? Очень нужно!!!
И как вывести данные из этой таблицы в StringGrid например? |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
DOS
Зарегистрирован: 26.03.2007 Сообщения: 4
|
Добавлено: Вт Апр 03, 2007 12:25 pm Заголовок сообщения: Re: Как изменить данные в DAT файле MapInfo (Delphi 7+MapX 4 |
|
|
Народ, неужели никто не может мне помочь или считаете, что вопрос слишком прост для ответа на него? :cry: |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
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) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
pv_pv
Зарегистрирован: 30.12.2008 Сообщения: 3
|
Добавлено: Пн Янв 05, 2009 11:48 am Заголовок сообщения: |
|
|
спасибо пригодилось |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
baba11
Зарегистрирован: 08.11.2014 Сообщения: 1
|
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|