nesco, повтори свой пост, пожалуйста (для девушки, я то читал)
Это я не на ту кнопу надавил опять (хотел удалить свой аттач - дулю, давай удалять пост...)
Вот на него ответ сразу:
Это не я написал:
//[function TIniFile.ValueString]
function TIniFile.ValueString(const Key, Value: String): String;
var
Buffer: array[0..2047] of Char;
begin
if fMode = ifmRead then
begin
Buffer[ 0 ] := #0;
GetPrivateProfileString(PChar(fSection),
PChar(Key), PChar(Value), Buffer, SizeOf(Buffer), PChar(fFileName));
Result := Buffer;
end
else
begin
Result := Value;
WritePrivateProfileString( PChar( fSection ), PChar( Key ),
PChar( Value ), PChar( fFileName ) );
end;
end;Поставь другую цифирьку, или что-нибудь динамическое
Поиск
Друзья
Администрация