看看这个http://www.torry.net/vcl/vcltools/text/esscanf.zipunit Scanf;interfaceuses Scanf_c, sysutils, classes;{ (Almost) compatible to C/C++ scanf}function sscanf(Str : PChar;
Format : PChar;
Pointers : array of Pointer): Integer;function fscanf(F : TStream;
Format : PChar;
Pointers : array of Pointer) : Integer;{ Formatted scan ?la scanf, but using FormatBuf syntax.}function StrDeFmt(Buffer, Format : PChar;
Args : array of const) : integer;function DeFormat(const Str : string;
const Format: string;
Args : array of const) : integer;function DeFormatBuf(const Buffer;
BufLen: Cardinal;
const Format;
FmtLen: Cardinal;
const Args: array of const): integer;{Decimal, hex, and octal representations of an int64 (Comp) type}function int64ToStr(c : int64) : string;
// for compatibility with scanf 1.0function int64ToHex(c : int64) : string;
// for compatibility with scanf 1.0function int64ToOct(c : int64) : string;{RTL extensions, accepting ThousandSeparator}function TextToFloatS(Buffer: PChar;
var Value;
ValueType: TFloatValue): Boolean;function StrToCurrS(const S: string): Currency;function StrToFloatS(const S: string): Extended;{RTL extension, accepting formatted currency string}function StrToCurrF(const S: string): Currency;implementationfunction StrDeFmt(Buffer, Format : PChar;
Args : array of const) : integer;
begin
StrDeFmt:=DeFormat_core(Buffer, Length(Buffer), Format, Length(Format), Args, DecimalSeparator, ThousandSeparator);
end;
function DeFormat(const Str : string;
const Format: string;
Args : array of const) : integer;var Buf, Fmt : PChar;
begin
Buf:=PChar(Str);
Fmt:=PChar(Format);
DeFormat:=DeFormat_core(Buf, Length(Str), Fmt, Length(Format), Args, DecimalSeparator, ThousandSeparator);
end;
function DeFormatBuf(const Buffer;
BufLen: Cardinal;
const Format;
FmtLen: Cardinal;
const Args: array of const): integer;var Buf, Fmt : PChar;
begin
Buf:=PChar(Buffer);
Fmt:=PChar(Format);
DeFormatBuf:=DeFormat_core(Buf, BufLen, Fmt, FmtLen, Args, DecimalSeparator, ThousandSeparator);
end;
function sscanf;
begin
Sscanf := Scanf_core(Str, Format, Pointers);
if (Result = 0) and (Str^=#0) then
Result:=scEOF;
// C scanf would havedo
ne this...end;
function fscanf;
begin
fscanf := Scanf_stream(F, Format, Pointers);
end;
function TextToFloatS;var EsRes : integer;
Buf : PChar;
{$IFOPT Q+} Save CW, NewCW : word;
{$ENDIF} Neg : boolean;
begin
Buf:=Buffer;
while (Buf^ <= ' ') and (Buf^ > #0)do
Inc(Buf);
Neg:= (Buf^='-');
If Neg then
Inc(Buf);
EsRes:=Ext_scanner(Buf, Maxlongint, Ord(ValueType)*4, DecimalSeparator, ThousandSeparator);
if (EsRes and scOK) <> 0 then
begin
If Neg then
asm fchs;
end;
Case ValueType of fvExtended : asm mov eax,[Value];
fstp tbyte ptr [eax];
end;
fvCurrency : asm {$IFOPT Q+} fstcw SaveCW mov NewCW,$33f // Mask exceptions fldcw NewCW {$ENDIF} mov eax,[Value] fistp qword ptr [eax];
{$IFOPT Q+} fnstsw ax and eax,8+1 // FPU overflow and invalidop mask jz @@OK or [Result],scOverflow @@OK: fclex fldcw SaveCW {$ENDIF} end;
end;
Result:=True;
end else
Result:=False;{$IFOPT Q+} if (EsRes and scOverflow) <> 0 then
raise EOverflow.Create(SOverflow + ' while scanning ' + Copy(Buffer,1, Buf-Buffer));{$ENDIF}end;
function StrToCurrS;
begin
if not TextToFloatS(PChar(S), Result, fvCurrency) then
raise EConvertError.CreateFmt(SInvalidFloat, );
end;
function StrToFloatS;
begin
if not TextToFloatS(PChar(S), Result, fvExtended) then
raise EConvertError.CreateFmt(SInvalidFloat, );
end;
function StrToCurrF;var Buf : PChar;
begin
Buf:=PChar(S);
If StrToCurrF_core(Buf, Length(S), Result, PChar(CurrencyString), CurrencyFormat, NegCurrFormat, DecimalSeparator, ThousandSeparator) <=0 then
raise EConvertError.CreateFmt(SInvalidFloat, );
end;
type Ti64 = record Lo, Hi : integer;
end;
function int64ToStr;
begin
Result:=IntToStr(C);
end;
function int64ToHex;
begin
Result:=IntToHex(C,1);
end;
function int64ToOct;var Temp : String[23];
b : byte;
i64 : Ti64 absolute c;
begin
SetLength(Temp,23);
b:=23;
while (i64.Lo <> 0) or (i64.Hi <> 0)do
begin
Temp:=Char( (i64.Lo and $07) + Ord('0') );
asm MOV EAX,DWORD PTR [C+4];
SHRD DWORD PTR [C],EAX,3 SHR EAX,3 MOV DWORD PTR[C+4],EAX end;
Dec(b);
end;
Temp:='0';
Result:=Copy(Temp, b, 255);
end;
{Scanf unit}end.
