[Delphi] Пробелы

[Рамик]

подскажите как можно установить колличество пробелов? в паскале можно было так:

'':10

или

'':i   (где i:integer)

а в делфи выдает ошибку на этом....

[Sazary]

Можете использовать функцию StringOfChar:
http://delphibasics.ru/StringOfChar.php

Label1.Caption := '1';
Label1.Caption := Label1.Caption + StringOfChar(' ',10);
Label1.Caption := Label1.Caption + '1';

[Вавел из ГМТУ]

В каком смысле кол-во пробелов?
Это больше похоже на кол-во знаков после запятой. В Delphi за это отвечает Format(...)

[Sazary]

Вавел из ГМТУ, попробуйте в паскале написать:

write('1');
write(' ':10);
writeln('5');

и он выведет:

1          5

вот что ТС имел в виду..

[Рамик]

Sazary, я хотел сделать так чтобы в зависимости от длины первого слова определялась длина пробела перед вторым словом...

[Sazary]

Сообщение от Рамик

я хотел сделать так чтобы в зависимости от длины первого слова определялась длина пробела перед вторым словом...

Ну так нет никакой проблемы. Что-нибудь вроде этого:

procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2 : string;
begin
str1 := 'Word1';
str2 := 'Word2';
Label1.Caption := str1 + StringOfChar(' ',10-length(str1)) + str2;
end;

[Рамик]

procedure TForm1.Edit1Change(Sender: TObject);
var k,i:integer;
begin
i:=0;
listbox2.Clear;
with ListBox1 do
    ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(edit1.text));
i:=listbox1.perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
k:=i;
if (Edit1.Text='')or(i=LB_ERR) then exit;
repeat
  listbox2.items.add(ListBox1.Items[i]+'     '+listbox3.Items[i]);
  i:=listbox1.perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
until (i=LB_ERR)or(i=k);
end;

смотри вот тут у меня вывоит результат в лист бокс...так вот я хотел сделать так чтобы при выводе у меня во второй( и далее) строке все два столббца были выравнеными...
куда мне теперь этот код вставить?

[Sazary]

Что-то вроде этого:

repeat
  listbox2.items.add(ListBox1.Items[i]+StringOfChar(' ',10-length(ListBox1.Items[i]))+listbox3.Items[i]);
  i:=listbox1.perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
until (i=LB_ERR)or(i=k);

[Рамик]

не чето не то....все равно не выравнивает...=(

[Рамик]

например знаешь как...
вот первая и вторая строка:

слово                    №№№№
второе слово        №№№№

видиш сколько пробелов в первой строке и сколько во второй....и второй столбец выравнен...