Zitat von
Nuclear-Ping:
var
DatumAlt,
DatumNeu: TDateTime;
Ini: TIniFile;
Tage: Integer;
begin
Ini := TIniFile.Create ('...\Pfad\Datei.ini');
DatumAlt := Ini.ReadFloat ('Allgemein', 'LastStart', 0);
DatumNeu := Now;
if (DatumAlt <> 0) then
Tage := Trunc (DatumNeu - DatumAlt)
else Tage := 0;
Ini.WriteFloat ('Allgemein', 'LastStart', DatumNeu);
FreeAndNil (Ini);
if (Tage > 0) then
ShowMessage ('Das Programm wurde vor ' + inttostr (Tage) + ' Tagen das letzte mal gestartet.');
end;
dann kommt:
Zitat von
Delphi 4 Standard:
[Fehler] Unit1.pas(27): Undefinierter Bezeichner: 'TIniFile'
[Fehler] Unit1.pas(31): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(31): Inkompatible Typen: 'TComponent' und 'String'
[Fehler] Unit1.pas(32): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(36): ';' nicht erlaubt vor einem 'ELSE'
[Fehler] Unit1.pas(41): '.' erwartet, aber ';' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete
Unit 'Unit1.pas' kann nicht compiliert werden
der ganze Syntax, na gut wär bei mir noch schlimmer
aber was ist dort mit: "Undefinierter Bezeichner: 'TIniFile' los?"