
09.11.2010, 20:07
|
Активный
|
|
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
|
|
Как вариант, что-то вроде этого :
Код:
memo1.lines.add(''+BuildString(FieldByName('MD').AsString,10,32,0)+' '+BuildString(FieldByName('Borepress').AsString,10,32,0)+' '+BuildString(FieldByName('Annpress').AsString,10,32,0));
function BuildString(S:String; CountChar:integer; CharCode:byte=32; Nr:integer=1): string;
{Дополняет строку S символами CharCode до CountChar}
{Nr<=0 - слева, >0 - справа}
Var
i,m : integer;
begin
Result:=S;
while length(Result)<CountChar do
begin
if Nr>0 then begin
Result:=Result+Chr(CharCode);
end
else begin
Result:=Chr(CharCode)+Result;
end;
end;
end;
|