Ergebnis der Suchanfrage

• Forum: Die Delphi-IDE

  AW: Fehlertoleranz DELPHI, TEIL #2

   
    by sx2008, 1. Dez 2012
  Das ist eine schlechte Technik (siehe Thread http://www.delphipraxis.net/171901-fehlermeldung-oder-keine-fehlermeldung-das-ist-hier-die-frage.html#post1193831).
  Ich habe oben noch den Aufruf von Read() nach ReadBuffer() geändert.
  Somit ist gewährleistet, dass die Funktion entweder mit dem String zurückkehrt oder eine Exception liefert.
  Der einzige Schwachpunkt wären Dateien die grösser sind...
• Forum: Die Delphi-IDE

  AW: Fehlertoleranz DELPHI, TEIL #2

   
    by sx2008, 1. Dez 2012
  Mal unabhängig von der Ursachenforschung; die korrekte Funktion sieht so aus:
  function LoadStringFromFile(const Filename: string):AnsiString;
  var
  fs: TFileStream;
  begin
  fs := TFileStream.Create (Filename, fmOpenRead or fmShareDenyNone);
  try
  SetLength(Result, fs.Size);
  if fs.size>0 then
  fs.ReadBuffer(Result, Length(Result));