форматирование в Memo (колонки)

[yulia]

Здравствуйте!
У меня в Memo выводится 3 колонки вот таким кодом

...
vh:= IBQuery2.FieldByName('C').AsInteger;
vh_s:=Format('%-2.2s',[inttostr(vh)]);
...
vih:= IBQuery2.FieldByName('C').AsInteger;
vih_s:=Format('%-2.2s',[inttostr(vih)]);
  if vih=0 then memo1.lines[i+1]:= '-- '+vh_s+' '+A[j] else
  if vh=0 then memo1.lines[i+1]:= vih_s+' -- '+A[j] else
  if (vih=0) and (vh=0) then memo1.lines[i+1]:= '--  -- '+A[j] else
  memo1.lines[i+1]:= vih_s+' '+vh_s+' '+A[j];

вот результат
Безымянный.jpg

Как сделать так, чтобы там где по одной цифре они выравнивались с правого края своей колонки (т.е. не под буквой к)? У меня идея только проверять на количество символов и если меньше 2, то добавлять пробел... ну или если число меньше 10.... Может есть способ поизящнее?

[ZuBy]

способа другого нет(вроде), но нужно правильный шрифт выбирать (моноширинный шрифт) где каждая буква имеет одинаковый размер

[evg_m]

vh:=0;
vih:=12;
r:=format('%2d %2d %s', [vh, vih, a[j]] );      // ' 0 12 xxxxxxxxxxx'
r:=Stringreplace(r, ' 0 ', '-- ', [relaceall]); // '-- 12 xxxxxxxxxxx'
memo.lines.add(r);

[yulia]

Сообщение от ZuBy

способа другого нет(вроде), но нужно правильный шрифт выбирать (моноширинный шрифт) где каждая буква имеет одинаковый размер

да, да, шрифт я поставила моноширинный

Сообщение от evg_m

vh:=0;
vih:=12;
r:=format('%2d %2d %s', [vh, vih, a[j]] );      // ' 0 12 xxxxxxxxxxx'
r:=Stringreplace(r, ' 0 ', '-- ', [relaceall]); // '-- 12 xxxxxxxxxxx'
memo.lines.add(r);

Спасибо огромное! Так красиво, очень помогло!!!

[SQLPowerUser]

В зависимости от ситуации, можно StringGrid с отключенной сеткой и без фиксированных строк/столбцов.
Или обычный Listbox с колонками

[Stilet]

Если не стоит задача копипастить потом текст я бы ListView использовал бы.

[yulia]

Сообщение от SQLPowerUser

В зависимости от ситуации, можно StringGrid с отключенной сеткой и без фиксированных строк/столбцов.
Или обычный Listbox с колонками

Если не стоит задача копипастить потом текст я бы ListView использовал бы

Спасибо, но другие варианты нельзя, стоит задача именно с Мемо. Так что сделала я как evg_m посоветовал. И все красиво и замечательно, если бы не одно но...

Вот код:

s:=DateTimePicker1.DateTime;
po:=DateTimePicker2.DateTime;
for k := 0 to Memo1.Lines.Count-1 do
  begin
  tel:= Memo1.Lines[k];
  if length(tel)>0 then
    begin
     for m := 1 to length(tel) do
     begin
      if not (tel[m] in ['0'..'9']) then
      begin
        ShowMessage('Недопустимые данные');
        exit;
      end;
     end;
    end;
A[k]:=tel;
  end;
k:=Memo1.Lines.Count-1;
Memo1.Lines[0]:='кИ кВ Номер';
i:=0;
for j:=0 to k do
  begin
  IBQuery2.sql.text:='select * from COUNT_CALLS(:Phone_A, :Phone_B, :Date_s, :Date_po, :priznak_vh )';
  IBQuery2.ParamByName('Phone_A').asString:=Edit1.text;
  IBQuery2.ParamByName('Phone_B').asString:=A[j];
  IBQuery2.ParamByName('Date_s').asDateTime:=s;
  IBQuery2.ParamByName('Date_po').asDateTime:=po;
  IBQuery2.ParamByName('priznak_vh').asString:='входящий';
  IBQuery2.Open;
  vh:= IBQuery2.FieldByName('C').AsInteger;
  IBQuery2.sql.text:='select * from COUNT_CALLS(:Phone_A, :Phone_B, :Date_s, :Date_po, :priznak_vh )';
  IBQuery2.ParamByName('Phone_A').asString:=Edit1.text;
  IBQuery2.ParamByName('Phone_B').asString:=A[j];
  IBQuery2.ParamByName('Date_s').asDateTime:=s;
  IBQuery2.ParamByName('Date_po').asDateTime:=po;
  IBQuery2.ParamByName('priznak_vh').asString:='исходящий';
  IBQuery2.Open;
  vih:= IBQuery2.FieldByName('C').AsInteger;
  vh_s:=format('%2d %2d %s', [vh, vih, a[j]] );
  vh_s:=Stringreplace(vh_s, ' 0 ', '-- ', [rfReplaceAll, rfIgnoreCase]);
  memo1.lines[i+1]:= vh_s;
  i:=i+1;
  end;

При первом запуске программы и нажатии кнопки ОК все отлично работает. Потом я выделяю весь текст в мемо, и удаляю его. Ввожу новые данные и снова нажимаю ОК. И оно почему-то не выводит последнюю строку цикла в Мемо. Я уже везде проверяла: вроде и данные все считываются и заносятся куда надо, и индексы правильные.... И вот на последнем круге цикла vh_s содержит нужные данные, а в Мемо не выводит...

[SQLPowerUser]

Удалите строки
memo1.lines[i+1]:= vh_s;
i:=i+1;

и напишите
Memo1.Lines.Add(vh_s);

[yulia]

Сообщение от SQLPowerUser

Удалите строки
memo1.lines[i+1]:= vh_s;
i:=i+1;

и напишите
Memo1.Lines.Add(vh_s);

Таки да, в этом была проблема. Спасибо большое!!!