Jak zamienic date w postaci tekstowej do TDateTime

0

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
0

Może to Ci pomoże

  ADateAndTime: TDateTime;
begin
  ADateAndTime := StrToDateTime(Edit1.Text);
  Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;

z helpu

0

Nie bardzo :(

0

i po co kolejny temat jak i tak nie masz zamiaru odpowiadać na pytania, które by rozwiązały sprawę?????

1 użytkowników online, w tym zalogowanych: 0, gości: 1