Показать сообщение отдельно
  #2  
Старый 09.11.2010, 20:07
roamer roamer вне форума
Активный
 
Регистрация: 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;


Ответить с цитированием