Delphi-Quellcode:
Procedure stringtohex;
var
fs: TFileStream;
lpBuffer: array of Byte;
s: string;
x: Integer;
begin
fs := TFileStream.Create('test.gam', fmOpenRead);
try
if (fs.Size > 0) then
begin
SetLength(lpBuffer, fs.Size);
fs.Read(lpBuffer[0], fs.Size);
end;
s := '';
for x := Low(lpBuffer) to High(lpBuffer) do
begin
s := s + IntToHex(lpBuffer[x], 2) + ' ';
end;
Memo1.Lines.Add(s);
finally
fs.Free;
end;
end;
Wenn mir das jetzt nochmal einer erklären könnte habt ihr mich glücklich gemacht.
[Error] Unit2.pas(71): Undeclared identifier: 'Memo1'
[Error] Unit2.pas(71): Missing operator or semicolon
[Fatal Error] Project1.dpr(6): Could not compile used
unit 'Unit2.pas'
Verstehe das nicht,warumdas mit showmessage geht, aber das memo nicht finden kann.