إستخراج التاريخ و الوقت من سلسلة نصية

[لؤي]

بالتوفيق

بارك الله فيك أخي على الكود سأستعملها غدا و أتحقق من النتيجة تعديل بسيط على الكود:

كود :

function DateTime: string; var m: string; u: string[1]; begin Result := ''; m := FormatDateTime('mmm', Now); m := Copy(m, 0, 3); u := UpperCase(m); Delete(m, 1, 1); insert(u, m,1); Result := m + FormatDateTime(' d yyyy[color=Red] h:mm[/color]AM/PM', Now); end;