Правила форума
Прочтите прежде чем задавать вопрос!
Мне нужно вывести записи на эран, где элементы "god" и "cena" должны выводится не с левого края а с правого своей области.
Элементы все string.
Знаю как в числовых элементах делается:
god,'':(11-length(god))
а с символьными не могу разобратся...
cena:string[8];
god:string[11];
Procedure TInterior.ReadFile;
var k:integer;
s,shapka:String;
data:autopark;
t:text;
begin
PS:=New(PStringCollection,Init(100,10));
seek(f,0);
shapka:=' Название | Марка | Год | Кузов | цвет | цена ';
PS^.insert(NewStr(shapka));
while not (EOF(f) or LowMemory) do
begin
read(f,data);
with data do
begin
s:=nazvanie;
while Length(s)<Lnazvanie do s:=s+' ';
s:=s+marka;
while Length(s)<Lnazvanie+Lmarka do s:=s+' ';
s:=s+god;
while Length(s)<Lnazvanie+Lmarka+Lgod do s:=s+' ';
s:=s+kuzov;
while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov do s:=s+' ';
s:=s+cvet;
while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov+Lcvet do s:=s+' ';
s:=s+cena;
end;
if s<>' ' then PS^.Insert(NewStr(S));
end;
Location:=0;
end;
