Скачать: CL | DM;

Задачка на сообразительность   Найти похожие ветки 

← →
AlexanderMS ©   (2006-06-09 17:26) [0]

Видели что-нибудь проще?

procedure FormatClearStr(var S: string);
begin
 S := "";
end;

В SysUtils нашёл. Зачем нужна, угадайте!

---

← →
McSimm ©   (2006-06-09 17:29) [1]

не знаю, но могу предположить, что используется как callback

---

← →
DrPass ©   (2006-06-09 17:34) [2]

Действительно, есть. Вызывается из ассемблерной вставки, где, само собой, проблематично делать обнуление Ansi-строки

---

← →
AlexanderMS ©   (2006-06-09 17:39) [3]

Так неинтересно! :) Сразу отгадали! Думал, зачем эта функция? Неужели
S := ""; - слишком сложно?
Оказывается, нужна. В коде на ассемблере:

CALL    FormatClearStr

---

← →
StriderMan ©   (2006-06-09 17:43) [4]

Удалено модератором

---

← →
novoalex ©   (2006-06-09 17:56) [5]

Удалено модератором

---

← →
ЫукпЗ   (2006-06-09 18:07) [6]

Удалено модератором

---

← →
StriderMan ©   (2006-06-09 18:34) [7]

Удалено модератором

---

← →
Strate ©   (2006-06-11 22:36) [8]

Удалено модератором

---

← →
Lamer@fools.ua ©   (2006-06-11 23:32) [9]

>Вызывается из ассемблерной вставки, где, само собой, проблематично делать обнуление Ansi-строки

procedure Test(var S: String);
begin
 S := "123";
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 S: String;
asm
 lea     eax, [S]
 call    Test
 lea     eax, [S]
 call    System.@LStrClr
end;


---

← →
Marser ©   (2006-06-11 23:37) [10]

Удалено модератором

---

← →
Kerk ©   (2006-06-11 23:47) [11]

Удалено модератором

---

← →
Skyle ©   (2006-06-14 07:30) [12]

Удалено модератором

---

← →
Piter ©   (2006-06-14 10:13) [13]

Удалено модератором

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c