[Pascal Warnung] Unit 'FileCtrl' ist plattformspezifisch

[xZise]

Die Warnung, dass FileCtrl Plattformspeziefisch ist, möchte ich ausblenden, da ich mir dessen Bewusst bin...
Gibt es irgendwie eine Möglichkeit, die nicht anzuzeigen?

PS: Was heißt das überhaupt genau? Angeblich soll das mit Linux zusammenhängen, aber ich dachte Delphi wäre eine Windowssprache?

[Luckie]

Es gibt auch Kylix für Linux. Schatt die Warnmeldung mit den platformspezifischen Warnung ab. Siehe dazu in der Hilfe: [oh]{$WARN... ON / OFF}[/oh].

[IngoD7]

Zitat von xZise:

Die Warnung, dass FileCtrl Plattformspeziefisch ist, möchte ich ausblenden, da ich mir dessen Bewusst bin...
Gibt es irgendwie eine Möglichkeit, die nicht anzuzeigen?

Steht das nicht bei dir in der Hilfe?

Aus der D7-Hilfe: "Mit der Compiler-Direktive $WARN UNIT_PLATFORM ON/OFF können alle derartigen Warnungen für Units aktiviert oder deaktiviert werden."

[volvox]

Zum Fehler : 'FileCtrl' ist plattformspezifisch



Ich bekomme den Fehler seit kurzen bei dem Befehl ShowFolder(Pfad); . Der Befehl öffnet normalerweise einen als String gespeicherten Dateipfad. Hat immer funktioniert. Jetzt auf einmal nich mehr, obwohl ich in der Nähe dieses Befehls nicht gearbeitet habe.

Könnte ich aus versehen was wichtiges bei den USES gelöscht, oder einfach ein end; vergessen haben. Ich verstehe es einfach nicht.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Clipbrd, FileCtrl, ShellApi;

Hier habe ich den Befehl mal als Kommentar gekennzeichnet, dort wo er hingehört

Delphi-Quellcode:

 if not DirectoryExists(Pfad) then begin                                                   // Erstellen erzwingen
          ForceDirectories(Pfad);
          ShowMessage('Neuer Ordner erstellt unter: '+Pfad);
          //                                 ShowFolder(Pfad);           //
          Application.Terminate;
          end
        else ShowMessage('Der Ordner >> '+Pfad+' << existiert bereits!');
    end
      
      else ShowMessage('Keine gültige Vorgangsnummer. Für die Hilfefunktion F1 drücken!');
      end

[Volker Z.]

Hallo,

und herzlich Willkommen in der DP

Zitat:

Zum Fehler : 'FileCtrl' ist plattformspezifisch
Ich bekomme den Fehler seit kurzen [...]

Die Meldung ist nur ein Warnhinweis aber keine Fehlermeldung.

Code:

[Pascal Warnung] Unit4.pas(7): W1005 Unit 'FileCtrl' ist plattformspezifisch

Wenn Du nur DirectoryExists und ForceDirectories in Deiner Unit verwendest, nimm FileCtrl aus Deiner Uses-Liste und das Thema hat sich erledigt.


Der Fehler liegt wohl an einer anderen Stelle:

Delphi-Quellcode:

  if not DirectoryExists(Pfad) then begin // Erstellen erzwingen
          ForceDirectories(Pfad);
          ShowMessage('Neuer Ordner erstellt unter: '+Pfad);
          // ShowFolder(Pfad); //
          Application.Terminate;
          end  <<<<<<<<<<<<<<<<<<<<< END OF IF NOT
        else ShowMessage('Der Ordner >> '+Pfad+' << existiert bereits!');

    end  <<<<<<<<<<<<<<<<<<<<<<<<<<< END OF WHAT????
      
      else ShowMessage('Keine gültige Vorgangsnummer. Für die Hilfefunktion F1 drücken!');

      end  <<<<<<<<<<<<<<<<<<<<<<<<< END OF WHAT????

Gruß

[MuTzE.Y85]

Falls du die Unit drin lässt:

Code:

uses
  ..., {$WARN UNIT_PLATFORM OFF} FileCtrl {$WARN UNIT_PLATFORM ON};

[Sir Rufo]

Installier dir das CnPack, dann sieht man wesentlich schneller durch die begin ... end Blöcke

[volvox]

Danke.

Ich schau nochmal nach den "ends". Ich habe zuvor mehrere if ... then ... beginn befehle drin, die ich mit den ends wieder abschließe. Müsste eigentlich simmen, aber ich gucke nochmal.

Gibt es eine andere möglichkeit, um unter windows einen bestimmten ordner zu öffnen? Dann könnte ich ShowFolder notfalls ersetzen.

Den Post von MuTzE.Y85 verstehe ich ehrlich gesagt nicht. Wahrscheinlich fehlen mir da die Grundlagen. Soll ich das einfach ganz oben bei den uses anfügen?

Zitat:

Installier dir das Bei Google suchenCnPack, dann sieht man wesentlich schneller durch die begin ... end Blöcke

Top. Danke!

[MuTzE.Y85]

Richtig. Vor bzw. hinter FileCtrl.
Dann kommt keine Warnung mehr. Es wurde aber auch schon gesagt, dass du die Unit evtl nicht brauchst.
Dann kannst du sie natürlich gleich raus nehmen.

[volvox]

EDIT:

Also der Quelltext ist in Ordnung.
Wenn ich
ShellExecute(0, 'open', PChar(Pfad), nil, nil, SW_ShowNormal); verwende, wird der Ordner geöffnet.


Wenn ich ShowFolder(Pfad) an der gleichen Stelle verwende, dann kommt

Delphi-Quellcode:

  [Fehler] Unit1.pas(102): Undefinierter Bezeichner: 'ShowFolder'
  [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Ich verstehe es nicht...