hi,

kann mir einer sagen was an folgendem falsch ist? (ja ich weiss das es schwachsinnig aussieht *g*...):

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  e, b: char;
begin
  fs := TFileStream.Create('C:\datei', fmOpenRead);
  try
    while fs.Position <= fs.Size-1 do
    begin
      fs.Read(b, 1);
      BinToHex(pchar(b), pchar(e), sizeof(b));
      memo1.Text := memo1.Text + e;
    end;
  finally
    fs.Free;
  end;
end;

ich bekomme immer eine access violation.

ich möchte die datei in einem memo anzeigen (bzw die hexwerte)... also sowas wie FF...usw

Na meine Seite ( http://www.luckie-online.de/Delphi/S...HexLoader.html ) noch nicht in den Favoriten drinne?

danke luckie, der code sieht perfekt aus

seite hatte ich in den favoriten, aber habe bis jetzt immer nur auf die api tuts geachtet

Na dann merk dir mal, dass es da noch andere nette Dinge gibt.

Werd ich machen =)

Zitat von Pseudemys Nelsoni:

Werd ich machen =)

Dann werfe am besten gleich mal einen Blick auf Luckies Artikel zum Thema CodeDesign.

Folgendes ist sehr Performance lastig:

markieren

Delphi-Quellcode:

 while fs.Position <= fs.Size-1 do
    begin
      fs.Read(b, 1);

Bei fs.Size wird jedes mal an das Ende der Datei gesprungen und anschliessend an die aktulle Stelle zurück. Die Funktion Read gibt die Anzahl der gelesenen Bytes zurück. Das ganz du ausnutzen:

markieren

Delphi-Quellcode:

 while (fs.Read(b, 1)<>0) do
    begin

Deine Access-Violation liegt daran, dass du einen Char nicht so in einen PChar konvertieren kannst.

Am besten du nutzt ganz einfach StrToHex:

e:=StrToHex(Integer(b),2) dann muss aber e als String definiert werden.