salut tous le monde!!!
j'ai un petit problème avec la methode qui m'aide a sauvgarder les modifications sur un fichier bin.
voici mon source
------------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type a = array [0..1159368] of char;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Button1: TButton;
Edit1: TEdit;
GroupBox1: TGroupBox;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
f:file of a;
d: a;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer ;
begin
if OpenDialog1.Execute then
begin
Edit2.Text:= '';
AssignFile (F, OpenDialog1.FileName);
reset(f);
Read(F, d);
Edit1.Text := ExtractFileName(OpenDialog1.FileName);
for i := 746404 to 746419 do
begin
Edit2.Text := Edit2.Text + IntToHex(Ord(d[i]),2) + ' ';
end;
end;
end;
end.
--------------------------------------------------------------------------------
Moi je veux sauvgarder les modifications que l'utilisateur du programme fais dans "Edit2" dans lâ même adress de la lecture dont elle est dans ce source
i := 746404 to 746419
merci
Smith