Delphi Pages Forums  

Go Back   Delphi Pages Forums > Delphi Forum > General

Lost Password?

Reply
 
Thread Tools Display Modes
  #1  
Old 09-20-2014, 06:58 PM
بى سات بى سات is offline
Junior Member
 
Join Date: Apr 2014
Posts: 1
Default Question about replacement code

Question about replacement code

Hi everyone

In short I am working my program bsitistbdl hex values from bin files

The following code displays the values of a specific address to a memo

I hope that I find you have the code reverse process that replaces these values within the file in the same location

Greetings

PHP Code:
if opendialog1.execute then begin
   Edit1
.Text :=ExtractFileName(OpenDialog1.FileName);
    
Edit4.Text := '392';
    
end;
      
end;
procedure TForm1.Button1Click(SenderTObject);
var
  
Abdallah_AbueltaibInteger;  //////// var name
begin
  
if not FileExists(Edit1.Textthen
  begin
    Edit1
.Clear;
    
Edit1.SetFocus;
    Exit;
  
end;
  
Abdallah_Abueltaib := FindByHexStr(Edit1.TextEdit2.Text);
  if 
Abdallah_Abueltaib > -1 then
    Edit3
.Text := IntToStr(Abdallah_Abueltaib)
  else
    
Edit3.Text := '';
    
begin
Abdallah_Abueltaib
:=StrToInt(Edit3.Text)+StrToInt(Edit4.Text);
edit4.text:=IntToStr(Abdallah_Abueltaib);

begin
  
if StrToInt(Edit3.Text) + >= StrToInt(Edit4.Textthen
  begin
    Edit4
.Clear;
    
Edit4.SetFocus;
    Exit;
  
end;
  
////show ir value in memo
  
Memo1.Text := GetHexStrByOffset(Edit1.TextStrToInt(Edit3.Text) + 7,
    
StrToInt(Edit4.Text)); 


Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On

Forum Jump


All times are GMT. The time now is 05:05 AM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.