hi,
kann mir einer sagen was an folgendem falsch ist? (ja ich weiss das es schwachsinnig aussieht *g*...):
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