Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Проверить эквивалентность двух файлов

Советы » Файлы » Проверить эквивалентность двух файлов

function

Are2FilesEqual(const

File1, File2: TFileName): Boolean; var

ms1, ms2: TMemoryStream; begin

Result := False

; ms1 := TMemoryStream.Create; try

ms1.LoadFromFile(File1); ms2 := TMemoryStream.Create; try

ms2.LoadFromFile(File2); if

ms1.Size = ms2.Size then

Result := CompareMem(ms1.Memory, ms2.memory, ms1.Size); finally

ms2.Free; end

; finally

ms1.Free; end

end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

Opendialog1.Execute then

if

Opendialog2.Execute then

if

Are2FilesEqual(Opendialog1.FileName, Opendialog2.FileName) then

ShowMessage('Files are equal.'); end

; {********************************************} {2.} function

FilesAreEqual(const

File1, File2: TFileName): Boolean; const

BlockSize = 65536; var

fs1, fs2: TFileStream; L1, L2: Integer; B1, B2: array

[1..BlockSize] of

Byte; begin

Result := False

; fs1 := TFileStream.Create(File1, fmOpenRead or

fmShareDenyWrite); try

fs2 := TFileStream.Create(File2, fmOpenRead or

fmShareDenyWrite); try

if

fs1.Size = fs2.Size then

begin

while

fs1.Position < fs1.Size do

begin

L1 := fs1.Read

(B1[1], BlockSize); L2 := fs2.Read

(B2[1], BlockSize); if

L1 <> L2 then

begin

Exit; end

; if

not

CompareMem(@B1[1], @B2[1], L1) then

Exit; end

; Result := True

; end

; finally

fs2.Free; end

; finally

fs1.Free; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com