Возможно вовсе глупо звучит... но...

← →
Ultimate © (2008-02-20 13:16) [0]

Возможно вовсе глупо звучит... но... каким символом обозначить перенос строки???
Я в Label прописываю текст, но если он слишком длинный, то текст "уходит" на пределы этого label"а, мне надо знать, каким символом можно получить имитацию нажатия Enter (т.е. перенести на новую строку) в Delphi? В некоторых скриптах это были символы \n в других другие, а здесть какой?

← →
Ega23 © (2008-02-20 13:19) [1]

ShowMessage("Мама" + #13 + "мыла" + #13 + "раму");

← →
Ultimate © (2008-02-20 13:21) [2]

Спасибо, выручил!

← →
Palladin © (2008-02-20 13:28) [3]

> Я в Label прописываю текст, но если он слишком длинный,
> то текст "уходит" на пределы этого label"а,

А еще есть WordWrap если что...

← →
oxffff © (2008-02-20 13:46) [4]

sLineBreak

← →
Leonid Troyanovsky © (2008-02-20 19:49) [5]

> Ega23 © (20.02.08 13:19) [1]

Воще-то, #13#10

--
Regards, LVT.

← →
Palladin © (2008-02-20 22:22) [6]

> [5] Leonid Troyanovsky © (20.02.08 19:49)

вощето #10 :)

← →
Leonid Troyanovsky © (2008-02-20 22:26) [7]

> Palladin © (20.02.08 22:22) [6]

> вощето #10 :)

Не верю :)

--
Regards, LVT.

← →
чувак (2008-02-20 22:32) [8]

#13 аналогично \n, а #10 \r

← →
Palladin © (2008-02-20 23:06) [9]

жалко... а могли бы пораться... :)

← →
Palladin © (2008-02-20 23:06) [10]

*подраться..
стандарт таки #10
лине фид :)

← →
Германн © (2008-02-21 01:04) [11]

> Palladin © (20.02.08 23:06) [10]

Буквоед?

← →
Servelat (2008-02-21 01:44) [12]

> ShowMessage("Мама" + #13 + "мыла" + #13 + "раму");

Плюсы ни к чему.

ShowMessage("Мама"#13"мыла"#13"раму");

> Servelat (21.02.08 01:44) [12]

Плюсы точно ни к чему. Но #10 нужно добавить.
Примите и прочь.

> Плюсы точно ни к чему. Но #10 нужно добавить.

А почему бы и не воспользоваться [4]...
Впрочем набирать дольше... да еще и плюсы обязательны
:о)

> {RASkov} © (21.02.08 09:19) [14]

Набирать как раз меньше.
Не забыл про

{$IFDEF LINUX}

{$ENDIF}
{$IFDEF MSWINDOWS}

{$ENDIF

??

:о) :о) :о)

var sl:tstringlist;

sl := tstringlist.create;

sl.add("Сорок");
sl.add("пять");

showmessage(sl.text);
sl.free;

:) ктонить придумает еще более идиотский сопособ??

function MultiStr(const Lines:array of string):string;
var i:integer;
begin
if length(Lines)>0 then
begin
for i:=0 to length(Lines)-2 do result:=result+Lines[i]+sLineBreak;
result:=result+Lines[length(Lines)-1];
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(MultiStr(["Line 1","Line 2","Line 3 ","..."]));
end;

Возможно вовсе глупо звучит... но... Найти похожие ветки