Benutzer selbst Datumsformat bestimmen

[Zioone]

Noch mal eine neue Frage^^:

Hab da noch ein Problem mit dem Datum in meinem Programm.
also:
- ich habe Dateien die das Datumsformat 'yyyy.mm.dd hh:nn:ss,zzz' haben (Ich kopier das ganze in einen String)
- damit rechne ich gewisse dinge aus, das geht auch alles
das ganze ist so gelöst:

Delphi-Quellcode:

if dText.Count >4 then
  begin
    x := dText.Strings[2];
    vs := dText.Strings[3];
    va := copy ( vs,1,4 );
  end;

    try
      if x = '' then
      begin
        if StrToIntDef( va,0 )=0 then
        begin
          StringGrid1.Cells[1,1] :=  '-';
        end
        else
        begin
          vs := FormatDateTime( 'dd.mm.yyyy hh:nn:ss,zzz', ExtractTime( dText.Strings[3]));
          if (vs='29.12.1899 00:00:00,000') OR (vs='30.12.1899 00:00:00,000')then
          begin
           StringGrid1.Cells[1,1] :=  '-';
          end
          else
          begin
            StringGrid1.Cells[1,1] := vs;
            bo:=TrystrtoDatetime(vs,ad);
            if bo=true then
            begin
              ad := StrToDateTime( vs );
            end
            else
              exit;
          end;
          StringGrid1.RowHeights[1] :=30;
        end;
      end
      else
//usw.

dText:=Stringlist

Jetzt will ich aber das wenn die Datei zb das Format 'dd.mm.yyyy hh:nn:ss,zzz'(Deutsche format) oder nur 'hh:nn:ss' hat, soll der User selbst das Format der Datei angeben können. Also sprich zb. 'hh:nn:ss' in ein Edit eingibt. Und die jeweiligen Informationen dann rausgesucht werden, da er ja jezt das richtige Format hat.
Ich dachte ja es gibt vllt eine Funktion in der man das format angeben kann und man nur das Format von dem Edit übergeben braucht, aber es gibt nur welche bei denen man angeben kann wie er es ausgeben soll :( .

Ich habe dafür leider keine Idee wie ich das lösen kann. Bin da auch nach längeren Suchen zu keiner Lösung gekommen und hoffe, mir können welche Lösungansätze geben. :)

[Union]

Versuchs mal mit TFormatSettings zu lösen

[taaktaak]

Grundsätzliche Anmerkung dazu:
Ich halte es für problematisch, das Format in einem Edit völlig frei definierbar zu machen. Besser wäre m.E. eine Auswahl typischer Format anzubieten, aus denen der Anwender dann auswählen kann.

[Zioone]

Danke für den Tip, habs jetzt mehr oder weniger hinbekommen, der Rest ist nur noch fummelarbeit^^

@taaktaak:
jup, hast Recht. Hab die sinnvollsten Formate jetzt selber eingegeben. Danke für den Hinweis

:dp: