Systemkonstanten

[himitsu]

Da Konstannte ja irgendwo deklariert sind, muß natürlich auch die entsprechende Datei (wo diese drin ist) in' Programm eingebunden sein, sonst kann sie ja nicht gefunden werden.


Wenn aber wirklich nicht's geht, dann kannst du ja auch mal auf solche Konstanten verzichten und gibst direkt deren Wert an, oder definierst dir solche Konstanten einfach selber.

Die entsprechenden Werte dafür kannst du ja schließlich auch von anderen, hier im Forum, erfahren.

Code:

[u][b][color=red]aus SysUtils[/color][/b][/u]

  { File open modes - for Windows }
  [color=red]fmOpenRead       = $0000;[/color]
  fmOpenWrite      = $0001;
  fmOpenReadWrite  = $0002;

  fmShareCompat    = $0000 platform; // DOS compatibility mode is not portable
  fmShareExclusive = $0010;
  fmShareDenyWrite = $0020;
  fmShareDenyRead  = $0030 platform; // write-only not supported on all platforms
  fmShareDenyNone  = $0040;

Code:

[u][b][color=red]aus Windows[/color][/b][/u]

  { MessageBox() Flags }
  MB_OK = $00000000;
  [color=red]MB_OKCANCEL = $00000001;[/color]
  MB_ABORTRETRYIGNORE = $00000002;
  MB_YESNOCANCEL = $00000003;
  MB_YESNO = $00000004;
  MB_RETRYCANCEL = $00000005;

  MB_ICONHAND = $00000010;
  MB_ICONQUESTION = $00000020;
  MB_ICONEXCLAMATION = $00000030;
  MB_ICONASTERISK = $00000040;
  MB_USERICON = $00000080;
  MB_ICONWARNING                 = MB_ICONEXCLAMATION;
  MB_ICONERROR                   = MB_ICONHAND;
  MB_ICONINFORMATION             = MB_ICONASTERISK;
  MB_ICONSTOP                    = MB_ICONHAND;

Also z.B:

Delphi-Quellcode:

Application.MessageBox(sfile, 'Beispiel1_Steuerelemente', 3{=MB_YESNOCANCEL});
sf := TFileStream.Create('C:\Datei.txt', 0{=fmOpenRead});