[DOS]

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

И как вывести данные из этой таблицы в StringGrid например?

[DOS]

Народ, неужели никто не может мне помочь или считаете, что вопрос слишком прост для ответа на него? :cry:

[DOS]

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

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]

спасибо пригодилось

[baba11]

мы их просто рисовали разными цветами, в одном слое. Но сейчакс вообще ушли от 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/