Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.01.03;
Скачать: CL | DM;

Вниз

String   Найти похожие ветки 

 
Sw   (2009-11-12 08:10) [0]

Помогите разобраться, пожалуйста:

function RepStr(S : String): String;
begin
 Result:=Format("%-45s %-45s",[Copy(S,1,45),Copy(S,1,45)])+Chr(13);
end;
или
 Result:=Copy(S,1,45)+Copy(S,1,45)+Chr(13);

при печати в первом варианте печатает через строку....т.е. например

var Rep:String;

.....
Rep:=RepStr("А")+RepStr("В")+RepStr("С")+....

будет:
А

В

С
во втором случае в каждую строку. Почему так?


 
{RASkov} ©   (2009-11-12 08:12) [1]

> [0] Sw   (12.11.09 08:10)
> Chr(13);


 
{RASkov} ©   (2009-11-12 08:16) [2]

пустые строки из-за 45 пробелов.... наверное


 
Sw   (2009-11-12 08:38) [3]

ага....не понимаю...43 проходит в каждую строчку.....

Result:=Format("%-43s %-43s",[Copy(S,1,43),Copy(S,1,43)])+Chr(13);


 
Sw   (2009-11-12 08:46) [4]

Result:=RepStr(Format("%-43s %-43s",["А",StringOfChar(" ",7)+"А"]))+
         RepStr(Format("%-43s %-43s",["В","B"]))+
         RepStr(Format("%-43s %-43s",["С","C"]));

а так проходит.....



Страницы: 1 вся ветка

Текущий архив: 2010.01.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-1231953992
Тыщ
2009-01-14 20:26
2010.01.03
Как использовать строковые константы в asm..end?


2-1257937557
Oleg1963
2009-11-11 14:05
2010.01.03
Компонент в цикле


15-1256942264
GDI+
2009-10-31 01:37
2010.01.03
Кстати, а почему люди до сих пор сидят на модемах?


1-1232557117
du_hast
2009-01-21 19:58
2010.01.03
Работа с CommandBar-ом в Outlook-е


15-1257353751
Pavia
2009-11-04 19:55
2010.01.03
Фрилас и создание своей фирмы.