Man könnte auch den
Exception-Text einfach nur erweitern und dann weiterreichen, anstatt gleich die ganze
Exception abzufangen.
Delphi-Quellcode:
try
FileStream := TFileStream.Create(Path + Filename, fmCreate);
try
FileStream.
Write(MyString[1], Length(MyString) * SizeOf(Char));
finally
FileStream.Free;
end;
except
on E:
Exception do
E.
Message := '
FileStream Exception: ' + E.
Message;
raise;
end;
Zitat:
MessageBox(PWideChar(...
PWideChar und PChar gemischt?
Schön daß man Unicodefehler auf auf einem
Unicode machen kann ... wehe es beschwert sich dann einer, daß es in
ANSI nicht läuft
Application.MessageBox ist auf PChar definiert, also sollte man dan nicht einfach wo PWideChar verwenden.