Опять торможу. Какая функция в Turbo Pascal отвечает...

← →
RASkov (2006-11-18 01:38) [40]

> Move(Pointer(AText)^, P^, C);
>
> вообще какой-то ужастик ;)))

:))

Те, кто это придумал, я их считаю не далекими от своего дела. Поэтому и привел кусок ихого кода.
Это из RxLib.

← →
Германн © (2006-11-18 01:44) [41]

> RASkov (18.11.06 01:34) [39]
>
> Так как примера небыло... Вот что у меня получилось, если
> что подправьте:)
...
Дык ты ж опять для Дельфи, а не для TP.
Для ТР:
function MS(Ch: Char; Count: Byte): String; var S: String; begin S[0]:=Count; FillChar(S[1], Count, Ch); Result:=S; end;

Может можно и упростить. Никак не могу вспомнить про Result в ТР7 :-(

← →
Германн © (2006-11-18 01:46) [42]

Блин!!!

> RASkov (18.11.06 01:34) [39]
>
> Так как примера небыло... Вот что у меня получилось, если
> что подправьте:)
...
Дык ты ж опять для Дельфи, а не для TP.
Для ТР:
function MS(Ch: Char; Count: Byte): String;
var S: String;
begin
S[0]:=Count;
FillChar(S[1], Count, Ch);
MS:=S;
end;

Может можно и упростить. Никак не могу вспомнить про Result в ТР7 :-(
Вот теперь правильно.

← →
RASkov (2006-11-18 01:54) [43]

> [42] Германн © (18.11.06 01:46)

Ну вот другое дело:)

> Дык ты ж опять для Дельфи, а не для TP.

Ну я же говорил, что

> Я с Turbo Pascal"ем не знаком но может будет совместимо.

Опять торможу. Какая функция в Turbo Pascal отвечает... Найти похожие ветки