HEX Position umschreiben

[F.Art]

Delphi-Quellcode:

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[i] := StrToInt('$' + Copy(hex, Succ(i shl 1), 2));
fs.Write(buf[0], Length(buf));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('at') then begin
   datei := TMemoryStream.Create;
   try datei.LoadFromfile('at');
       finally
         WriteHex(Datei, 'AED6', 'FF');
         datei.SaveToFile('at2');
         end;
   datei.Free
   end;
end;

dies wäre nun meine lösung.
würde mir jemand dies nun noch optimieren und vereinfachen soweit es möglich ist?

[rollstuhlfahrer]

Da alle Streams in Delphi auf TStream aufbauen, würde ich die Prozedur nicht auf TMemoryStream beschränken, sondern es offen lassen, welche Art von Stream verwendet werden darf. Heißt: procedure WriteHEX(fs: TStream; ... . Außerdem würde ich die Prozedur nicht mit Stringwerten befüllen, sondern dafür echte Zahlen nehmen. HEX-Konstanten werden ja auch als Zahl übergeben.

Bernhard

[Blup]

Wird der Rückgabewert von Write nicht auswertet, statt dessen WriteBuffer verwenden.
Dann wird im Fehlerfall zumindest eine Exception ausgelöst.

Bitte rück mal den Code auch ordentlich ein, erstens ist es verständlicher und man findet eventuelle Fehler auch einfacher...

[p80286]

Hallo Fart,

ich würde es etwas anders machen:
1) Datei öffnen
2) Position suchen
3) neuen Wert schreiben
4) Datei schließen.

also etwa so

Delphi-Quellcode:

buffer[0]:=255;
fs.create(...);
fs.seek(1234);
fs.write(buffer[0],1);
fs.close;

Selbstredend, daß da noch ein wenig Fehlerprüfung rund herum zugehört. Aber Du mußt ja nicht die ganze Datei laden, um ein Byte zu ändern.

Gruß
K-H