Q&A

  • 하드 용량을 구해서 텍스트에 쓰기? -단위 변환 에러
procedure TForm1.Button1Click(Sender: TObject);



var

FreeBytesAvailableToCaller,

TotalNumberOfBytes :TLargeInteger;

TotalNumberOfFreeBytes :PLargeInteger;

begin

GetDiskFreeSpaceEx(PChar('C:'),FreeBytesAvailableToCaller,TotalNumberOfBytes,TotalNumberOfFreeBytes);



ShowMessage(

'총용량 : ' +

FormatFloat('#,', TotalNumberOfBytes) +

' 바이트, 남은용량 : ' +

FormatFloat('#,', TotalNumberOfFreeBytes) +

' 바이트'

);

end;



컴파일하면 이런 에러가 나는 군요 . 타입이 틀린것 같은데.... txt로 쓰는것도 구현해야하는데.... 예제에 나와있는걸 다 봤지만.. 다 잘되시나보군요...



[Error] freedisk.pas(41): Incompatible types: 'Extended' and 'PLargeInteger'







0  COMMENTS