Компонент "Текст"

Lantik

Проблема вот в чем, в компонент "Текст" встовляю несколько колонок таблицы:
[frxDBDataset1."Ф.И.О"] [frxDBDataset1."Город'] и мне нужно чтобы после
[frxDBDataset1."Город'] была запятая, но только тогда когда есть "Город", а когда нет, то и нет запятой.

vlad_galaxy

В обработчике OnBeforePrint для мемки проанализируйте значение типа так
var
s : string;
begin
s := <frxDBDataset1."Ф.И.О">;

if VarToSTR( <frxDBDataset1."Город'> ) <> '' then
s := s + <frxDBDataset1."Город'> + ',';

TfrxMemoView(Sender).Text := s;
end;

Andrew_Sh

Lantik написал:

Проблема вот в чем, в компонент "Текст" встовляю несколько колонок таблицы:
[frxDBDataset1."Ф.И.О"] [frxDBDataset1."Город'] и мне нужно чтобы после
[frxDBDataset1."Город'] была запятая, но только тогда когда есть "Город", а когда нет, то и нет запятой.

А можно и без скрипта обойтись

[frxDBDataset1."Ф.И.О"][IIF(<frxDBDataset1."Город'> <> '', ', ' ,'' ][frxDBDataset1."Город']

Lantik

Ни чего не получается.
Пробую через OnBeforePrint получается вот что на первой строке один город на второй строке два на третей три и т.д.
А второй код вызывает ошибку.

gpi

написал:

Пробую через OnBeforePrint получается вот что на первой строке один город на второй строке два на третей три и т.д.

при таком коде такого быть не должно:

s := <frxDBDataset1."Ф.И.О">;
if VarToSTR( <frxDBDataset1."Город"> ) <> '' then
s := s + <frxDBDataset1."Город"> + ',';

, а вот без первой строки такое возможно

написал:

А второй код вызывает ошибку

там просто одинарная кавычка после Город (Copy-Paste )

[frxDBDataset1."Ф.И.О"][IIF(<frxDBDataset1."Город"> <> '', ', ' ,'' ][frxDBDataset1."Город"]

- должно работать

Lantik

Да на счет одинарной ковычки я понял сразу.

А ошибка все равно лезет: ' IIF (<frxDBDataset1."Город"> <> '', ', ', '' ':')' expected

Lantik

s := <frxDBDataset1."Ф.И.О">;
if VarToSTR( <frxDBDataset1."Город"> ) <> '' then
s := s + <frxDBDataset1."Город"> + ',';

А как в этот код добавить еще колонки ну например: "Улицу", "Корпус", "Дом" и т.д. Но только так чтобы они были по порядку.

Lantik

Все я понял почему ошибка просто в конце не хватало скобки
[frxDBDataset1."Ф.И.О"][IIF(<frxDBDataset1."Город"> <> '', ', ' ,'' [b]<span style='color:red'>)</span>[/b]][frxDBDataset1."Город"]

Большое спасибо заработало.

gpi

написал:

А как в этот код добавить еще колонки ну например: "Улицу", "Корпус", "Дом" и т.д. Но только так чтобы они были по порядку

s := <frxDBDataset1."Ф.И.О">;
if VarToSTR( <frxDBDataset1."Город"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Город">;
if VarToSTR( <frxDBDataset1."Улица"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Улица">;
if VarToSTR( <frxDBDataset1."Корпус"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Корпус">;
if VarToSTR( <frxDBDataset1."Дом"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Дом">;
if VarToSTR( <frxDBDataset1."Квартира"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Квартира">;
if VarToSTR( <frxDBDataset1."Этаж"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Этаж">;

Andrew_Sh

Маленькое дополнение. В качестве оптимизации можно преобразовать
кусок повторяющегося кода в варианте от gpi

if VarToSTR( <frxDBDataset1."Город"> ) <> '' then
s := s + ', '+ <frxDBDataset1."Город">;

в функцию

function StrWithComma(const s: string): string;
begin
  if s <> '' 
    then result := ', ' + s;
end;

которую и использовать потом либо в мемо либо в скрипте. И выражение будет выглядеть короче и элегантнее, чем все вышеприведенные варианты.