Tak zamo jak w temacie.. jak zamienic date w postaci tekstowej do postaci TDateTime
Porgram ktory napisalem dziala tylko polskim uzytkownikom, uzytkownikom z innych narodowosci "program wykonal nieprawidlowa operacje"
oto kod;
var
INI : TINIFile;
updtVersion : string;
File_Name: string;
DateTimeStamp: integer;
Date_Time: TDateTime;
day:double;
czas: string;
days: string;
updated: string;
begin
INI := TINIFile.Create(HTTPGet1.FileName);
try
updtVersion := INI.ReadString('update','version','');
begin
days := edit1.Text;
File_Name := 'Disks//save.adf';
DateTimeStamp := FileAge(File_Name);
// FileAge returns -1 if file not found
if DateTimeStamp < 0 then
ShowMessage('Couldn`t find save.adf')
else begin
// Convert to TDateTime format
Date_Time := FileDateToDateTime(DateTimeStamp);
day:=strtodate(updtVersion)-strtodate(DateToStr(Date));
czas:= DateToStr(Date_Time);
updated:= updtVersion;
if updated > czas then