Forum: Programmieren allgemein
Delphi
by F.Art,
29. Jul 2010
procedure WriteHEX(fs: TMemoryStream; hexpos: string; hex: string);
var
buf: array of byte;
i: integer;
begin
fs.Position:=StrToInt('$'+hexpos);
SetLength(buf, Length(hex) shr 1);
for i := Low(buf) to high(buf) do
buf := StrToInt('$' + Copy(hex, Succ(i shl 1), 2));
fs.Write(buf, Length(buf));
Forum: Programmieren allgemein
Delphi
by F.Art,
28. Jul 2010
das funktionierte nicht, habe es aber ans laufen bekommen.
procedure Display(const S: string); einfach bey types reingeschmissen.
also 2gb reicht mir voll und ganz.
also mit
datei.Position:=$AED3;
Forum: Programmieren allgemein
Delphi
by F.Art,
28. Jul 2010
Der dritte Link "Datei inhalt als HEX-String ausgeben..."
Interessiert mich, nur wenn ich das beispiel benutze bekomme ich eine Fehlermeldung.
procedure TForm1.Display(const S: string);
Undefinierter Bezeichner: ‚Display‘
--------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Forum: Programmieren allgemein
Delphi
by F.Art,
28. Jul 2010
Derzeit benutze ich einen HEX Editor um eine bestimmte Possition in einer Datei (Spielstand) um zu schreiben. Nur möchte ich dies nicht immer von Hand erledigen. Daher würde ich gerne ein Delphi Projekt machen, was diese Possition ermittelt und um schreibt.
Wie stelle ich das nun an?