Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Object und Fail

    Delphi
    by MacGuyver, 4. Feb 2010
  N'abend,
  
  ich habe das gerade noch einmal durchgespielt. Ich habe das Objekt so umgestellt, dass das FindFirst in einer Funktion verwendet wird und im Creator kein Fail mehr verwendet wird. Der Fehler auf dem Stack passiert so nicht mehr.
  
  So ein Mist! 150 Stellen überarbeiten. :kotz:
  
  Hätte ich das mal früher gewusst...
• Forum: Object-Pascal / Delphi-Language

  Re: Object und Fail

    Delphi
    by MacGuyver, 4. Feb 2010
  Oh, da habe ich nicht richtig gelesen. :oops:
  
  Die Unit DOS enthält nur PathStr und Co. und sonst nichts. Sie ist nur ein Dummy, damit ich nicht jede Unit überarbeiten muss. Mein Konvertierungsprogramm fügt die SysUtils überall automatisch ein, so sind die Funktionen wie BlockRead und so drin.
  
  Von daher nimmt er die aus SysUtils. In Windows.pas gibt es kein FindFirst, was er fälschlicher...
• Forum: Object-Pascal / Delphi-Language

  Re: Object und Fail

    Delphi
    by MacGuyver, 4. Feb 2010
  Irrtum!
  
  FindClose braucht nicht aufgerufen zu werden, wenn nichts gefunden wurde. Wenn etwas gefunden wurde muss es aber aufgerufen werden.
  
  Ich hatte das FindClose auch schon ausgeklammert, der Fehler trat trotzdem auf.
• Forum: Object-Pascal / Delphi-Language

  Re: Object und Fail

    Delphi
    by MacGuyver, 2. Feb 2010
  DosError?
  
  
  {$IfDef Win32}
  lEc := SysUtils.FindNext(DirInfo);
  FindNext := lEc = 0;
  {$Else}
  Dos.FindNext(DirInfo);
  FindNext := DosError = 0;
  {$EndIf}
• Forum: Object-Pascal / Delphi-Language

  Re: Object und Fail

    Delphi
    by MacGuyver, 2. Feb 2010
  Ja, object ist veraltet, das weiß ich. Wie du an den ganzen Compilerschalter schon siehst, möchte ich das Programm unter Delphi und unter TP7 kompilieren können.
  
  FindFirst/FindNext/FindClose kann ich ausschließen, habe ich auch erst gedacht.
• Forum: Object-Pascal / Delphi-Language

  Object und Fail

    Delphi
    by MacGuyver, 2. Feb 2010
  Moin Leute :hi:
  
  Ich stelle gerade mein Programm von Turbo Pascal 7.0 auf Turbo Delphi um. Das Programm läuft dann als Console. Bei über 100.000 Zeilen kann ich nicht mal eben eine reine Formularanwendung draus machen. Als 32 Bit Console läuft das Teil dann auch auf XP 64 Bit, was einer 16 Bit Anwendung verwährt wird.
  
  Komme ich zu meinem Problem.
  
  
  type
  TDirInfo = object
  DirInfo :...