Habs Hinbekommen
Sorry wenn mein erster post etwas unstrukturiert und wenig informel war
So gehts
ganz easy
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var y,Ansprachen1:integer;
var Datum: TDate ;
var X:String;
begin
Datum := Date();
ClientDataSet1.LoadFromFile('pa.xml');
ClientDataset1.last;
X:=ClientDataset1.FieldByName('Datum').AsString;
Y:=StrtoInt(ClientDataset1.FieldByName('Ansprachen').Asstring);
label1.caption :=X;
if X <> datetoStr(date()) then ClientDataset1.Append else ClientDataset1.edit;
IF X <> datetoStr(date()) then y:=0;
ClientDataset1.FieldByName('Datum').Asstring :=datetostr( date());
ClientDataset1.FieldByName('Ansprachen').Asstring := inttoStr(y+1);
ClientDataset1.Post;
ClientDataSet1.SaveToFile('pa.xml', dfXML);
ein bischen nachdenken und pause schadet wohl nicht ^^
nochmals korrigierte version
es sollte schon ASInteger sein wenn der datensatz Feld ebenfalls Integer ist
Delphi-Quellcode:
procedure TForm2.Button4Click(Sender: TObject);
var y:integer;
var Datum: TDate ;
var X:String;
begin
Datum := Date();
ClientDataSet1.LoadFromFile('pa.xml');
ClientDataset1.last;
X:=ClientDataset1.FieldByName('Datum').AsString;
Y:=ClientDataset1.FieldByName('Abschluss').AsInteger;
label1.caption :=X;
if X <> datetoStr(date()) then ClientDataset1.Append else ClientDataset1.edit;
IF X <> datetoStr(date()) then y:=0;
ClientDataset1.FieldByName('Datum').AsString :=datetostr( date());
ClientDataset1.FieldByName('Abschluss').AsInteger := (y+1);
ClientDataset1.Post;
ClientDataSet1.SaveToFile('pa.xml', dfXML);
end;