Questão/Problema:

Colunar Memo

Resposta:

Encontrado na Internet


Uses StrUtils

Num formulário coloque um memo e um button


function justr(s : string; tamanho : integer) : string;
var i : integer;
begin
i := tamanho-length(s);
if i>0 then
s := DupeString(' ', i)+s;
justr := s;
end;

function justl(s : string; tamanho : integer) : string;
var i : integer;
begin
i := tamanho-length(s);
if i>0 then
s := s+DupeString(' ', i);
justl := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s : String;
v : Real;
begin
with memo1 do
begin
Font.Name := 'Courier New';
Clear;
s := 'teste';
v := 1.34;
Lines.Add(justl(s, 10) + justr(floattostr(v), 12));
s := 'teste2';
v := 35.41;
Lines.Add(justl(s, 10) + justr(floattostr(v), 12));
end;
end;