Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Вниз
Задачка на сообразительность Найти похожие ветки
← →
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 вся ветка
Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
