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

Вниз

Опять торможу. Какая функция в 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"ем не знаком но может будет совместимо.

---

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

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

Наверх

Память: 0.54 MB
Время: 0.032 c