Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
5. Jun 2005
ja... das ist bestimmt einfacher :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
4. Jun 2005
Nein, weiss ich nicht...
Er macht 30.12.1899, weil result leer bleibt...
Aber ich habe es gerade noch bei mir getestet... bei mir läuft alles...
Versuche zuerst mit meinem code, wenn es dann läuft, dann kannst du die ganzen variablen usw. ändern...
Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
4. Jun 2005
Ich habe die Function getestet, bei mir war alles OK... ich habe gerade etwas gesehen:
CheckString ist ja ne function:
// wenns nicht zu except springt, ist alles in ordnung
CheckString(EditDatumEingabe.Text);
lbltest.Caption := DateToStr(Datum);
Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
3. Jun 2005
welche if abfrage meinst du denn?
Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
3. Jun 2005
da ist dein beispiel:
function TForm1.pars(s:string):TDate;
var
i,i2:integer;
s1,s2:string;
begin
if (pos('.',s)>0) and (pos(' ',s)<=0) then begin
//wenn es 01.01.2005 ist
Forum: Object-Pascal / Delphi-Language
Delphi
by XHelp,
3. Jun 2005
Ich weiss nicht, ob man das wie bei php mit 1. Januar 2005 machen kann...
vielleicht hilft dir ein parser:
Du guckst, was in EinleseDatum ist:
wenn in EinleseDatum zwei punkte sind, dann ist es 1.1.2005 und du kannst ganz normal StrToDate machen,
wenn zwei '-' da sind, dann ist es 2005-01-01, du kannst dann einzelne zahlen rauslesen und in 1.1.2005 umwandeln,
wenn in EinleseDatum leerzeichen...