Показать сообщение отдельно
  #7  
Старый 26.12.2011, 14:55
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от win32nod32
что то я не понимаю, зачем нужно заполнять строку пробелами.
чтобы все строки были одной длины!



Код:
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);

function LeftPad(s: String; len: Integer): String;
begin
  Result:=s;
  len:=len-Length(s);
  if len<1 then Exit;
  Result:=s+StringOfChar(' ', len);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  det, count, firm: String[20];
begin
  det:='Карбюратор';
  count:='4';
  firm:='ОАО "АвтоВАЗ"';
  Memo1.Lines.Add(LeftPad(det, 24)+LeftPad(count, 24)+LeftPad(firm, 24));
  Memo1.Lines.Add(LeftPad('Трамблер', 24)+LeftPad('3', 24)+LeftPad('ОАО "Жигули"', 24));
  det:='Стартер,';
  count:='12,';
  firm:='"Ferrari"';
  Memo1.Lines.Add(LeftPad(det, 24)+LeftPad(count, 24)+LeftPad(firm, 24));
end;

http://zalil.ru/32376022
__________________
Пишу программы за еду.
__________________
Ответить с цитированием