Erro em Função
24/11/2005
0
function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [10, 13, 32..126, 169, 184]) then begin
if (p^ = 0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + 1310;
end;
q := nil;
end;
end else
if p^ in [33..126, 169, 184] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;
Valdirdill
Posts
24/11/2005
Edilcimar
if (p^ in [#33..126, 169, 184]) then
que apesar de não ter lógica as vezes não funciona, faça um debug
24/11/2005
Valdirdill
Você testou a function e funcionou? Qual Delphi?
24/11/2005
Edilcimar
24/11/2005
Massuda
Clique aqui para fazer login e interagir na Comunidade :)