Datum souboru v Delphi

Zkoušel jsi zpracovat řetězce a převést to na normální formát DateTime?
Funkce Copy(), EncodeDate(), EncodeTime()...

Dalsi moznosti je naformatovat cas souboru po stazeni do formatu stejneho jako server. Ten format mas totiz ve formatu DateTime, takze muzes pouzit funkci FormatdateTime()

Netuším, akým spôsobom získavaš údaje o poslednej modifikácii súboru, ale IMHO porovnávať 2 reťazce je nezmysel...
Porovnávať môžeš hodnoty TDateTime.

function GetFileDateTime(FileName: string): TDateTime;
var intFileAge: LongInt;
begin
  intFileAge := FileAge(FileName);
  if intFileAge = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(intFileAge)
end;

var
Datum1, Datum2: TDateTime;
if Datum1 <> Datum2 then ...

Se souboru na disku to mam TDateTime

var
datumCas: TDateTime;
begin
datumCas := FileDateToDateTime(FileAge('.\text.txt'))

S HTTP servru to mam přes GET jako string 'fri, 30 Mar 2012 03:18:56'
Tudiš to potřebují převest do TDateTime.

"Trošku" som pátral po riešení, ale nedopátral som sa...
Jediné rýchle riešenie je použiť Synapse TCP/IP library, v podstate Ti stačia 2 unity:
synautil.pas + synafpc.pas

uses
  synautil;
var
  MyDate: TDateTime;
begin
  MyDate:= DecodeRfcDateTime('fri, 30 Mar 2012 03:18:56 CEST');

Jediné čo je nutné definovať v stringu - časovú zónu CEST - inak môže byť rozdiel ako u mňa 2 hodiny...

Děkují mooooc za pomoc.