Мемо вставка

[MSD]

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

Маша
Саша
Петрович
Еще разная фигня

и т. д. текс не превышает 30 символов, задача в том чтобы этот текст как бы обрисовать рамкой с правого края, т.е. дридцатым символом вставить допустим знак "|", чтобы получить

Маша |
Саша |
Петрович |
Еще разная фигня |

как добавить эти палочки в текст 30 символом? Спасибо.

[DoDge_VipeR]

for i:= 0 to memo.lines.count-1 do
begin
while length(memo.lines[i])<30 do
memo.lines[i]:=memo.lines[i]+' ';

memo.lines[i]:=memo.lines[i]+'|';
end;

[W0LF]

ТС, такой способ не решение... Так как каждый символ имеет свой размер, по этому рамку так нарисовать не выйдет...

[Fuadik]

Это можно получить только с моноширинными шрифтами. Тогда вертикальные линии будут одна под другой

[W0LF]

Примеры моноширинных шрифтов:

Courier и Courier New
Monospace
Prestige Elite
Monaco
Lucida Console
Consolas
DejaVu Sans Mono
Liberation Sans

[Alter]

Вот, наверно подойдёт:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 I,II :Integer;
 Buf,msk :string;
begin
  II := Memo1.Lines.Count;
 if II <= 0 then
  Exit;
 for I := 0 to II - 1 do
 begin
   Buf := Memo1.Lines.Strings[I];
    // v1
  {msk := '%' + Format('%d', [30 - Length(Buf)]) + '.s|';
   Buf := Buf + Format(msk, [' ']); }
    // v2
   Buf := Format('%-30s', [buf]) + '|';
   Memo1.Lines.Strings[I] := Buf;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Font.Name := 'Courier';
end;

end.