Einzelnen Beitrag anzeigen

Zioone

Registriert seit: 3. Sep 2008
49 Beiträge
 
Delphi 7 Professional
 
#1

Benutzer selbst Datumsformat bestimmen

  Alt 13. Nov 2008, 13:38
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.
Christine
  Mit Zitat antworten Zitat