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

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

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

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

Пропатчить двоичный файл - заменить строку

Советы » Файлы » Пропатчить двоичный файл - заменить строку

// Replaces a string in a file with new string. 
// Ersetzt eine Zeichenkette in einer Datei mit einer anderen Zeichenkette. 

procedure

TForm1.Button1Click(Sender: TObject); var

f: file

; l: Longint; FileName, oldstring, newstring, s: string

; begin

oldstring := 'old string'; newstring := 'new string'; FileName := 'c:YourFileName.xyz'; s := oldstring; AssignFile(f, FileName); Reset(f, 1); for

l := 0 to

FileSize(f) - Length(oldstring) - 1 do

begin

Application.ProcessMessages; Seek(f, l); BlockRead(f, oldstring[1], Length(oldstring)); if

oldstring = s then

begin

Seek(f, l); BlockWrite(f, newstring[1], Length(newstring)); ShowMessage('String successfully replaced!'); end

; Application.ProcessMessages; end

; CloseFile(f); end

;

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

Категории

Статьи

Советы

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