
26.12.2011, 14:55
|
 |
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
__________________
Пишу программы за еду.
__________________
|