Sergey писал(а):
Тут справа у ворді.
Дякую!!! Допомогло! А як зробити щоб було через
commaspace а не через
stringsКод:
uses System.SysUtils; // IntToStr
function GetKZ9Value(const Code: string): string;
begin
Result := '';
if Code = '100' then Result := 'землі сільськогосподарського призначення';
if Code = '200' then Result := 'землі житлової та громадської забудови';
end;
var Codes, Cads, Areas: array of string ;
I: Integer;
s: string;
begin // из режима Парсель
Codes := GetModeItem('KZ9Code', rmParcel); // берем коды КЗ
Cads := GetModeItem('TX', rmParcel); // берем цыльови використання участков
Areas := GetModeItem('sDil', rmParcel); // площи участков
if (Length(Codes) = 0)
or (Length(Areas)= 0) then
begin
print('Error');
Exit;
end;
s := '';
for I := 0 to High(Codes) do
if s = '' then
s := 'земельна ділянка площею ' + Areas[I]+' га (' +GetKZ9Value(Codes[I]) +') '+ Cads[I]
else
s := s +#13#10+ 'земельна ділянка площею ' + Areas[I]+' га (' +GetKZ9Value(Codes[I]) +') '+ Cads[I];
SetLength(_RESULT, 1);
_RESULT[0] := s;
end.
я не дружу з Паскалем і тому пробував замінити всі СТРІНГИ
на КОММАСПЕЙС, але не вийшло, тому прошу Вашої допомоги.
Буду чекати новий Апгрейд програми уже з абрисом