27.09.2009, 19:38
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
С нами:
10175096
Репутация:
105
|
|
можно функцией попроще пользоваться:
Код:
function Vertical(const S:String):String;
var
i:LongWord;
begin
if length(S) < 2 then
Result := S;
Result := S[1];
for i := 2 to Length(S) do
Result := Result+#13#10+S[i];
end;
пользоваться так:
Код:
BitBtn1.Caption:=Vertical('мой текст или переменная');
|
|
|