| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

String [D7, XP]

Sw ©   (2009-11-12 08:10:00) 

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

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('С')+....

будет:
А

В

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

---

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

Result:=RepStr(Format('%-43s %-43s',['А',StringOfChar(' ',7)+'А']))+
         RepStr(Format('%-43s %-43s',['В','B']))+
         RepStr(Format('%-43s %-43s',['С','C']));
а так проходит.....

---

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

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

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


---

{RASkov}   (2009-11-12 08:16:00) [3]

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

---

{RASkov}   (2009-11-12 08:12:00) [4]

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

---

Наверх