Save-Probleme

[parethol]

also die Attribute habe ich nur auf Hide gesetzt, damit nicht jeder in dem File herum schreiben kann. Das csv File wird dann per Datei import im Excel eingelesen. somit kann jeder sein eigenes Excelfile selber gestalten, mit filtern, grösse usw und die Rohdaten werden nicht verfälscht.

ich habe es so programmiert, dass dort wo das .exe geöffnet wird eine neue "Datenbank" gemacht wird.

Delphi-Quellcode:

if FileExists(GetCurrentDir+ '\test.csv')= false
then begin
    List := TStringList.Create;
    try
     List.Add('A;B;C;D;E;F;G);
     List.SaveToFile(GetCurrentDir+ '\test.csv');
     FileSetAttr(GetCurrentDir+ '\test.csv', faHidden);
    finally
     List.Free;
   end;
  end;

und der bereits beschriebene Block

Delphi-Quellcode:

 //-------------------------Save----------------------------------
   begin     //
   List := TStringList.Create;
    try
    data:= Form1.Label5.Caption + ';'+TimeToStr(Now())+';'+ form1.Edit2.Text + ';' + selftest + ';' + form1.Edit1.Text + ';' + rad + ';' + sur + ';' + light + ';'+ ics + ';' + index + ';' + transf1 +';' + transf2 + ';' + transf3 + ';' + interrupt + ';' + emo + ';' + door+ ';' +  move + ';' + call+ ';' + '';
// variabeln

 
     List.LoadFromFile(GetCurrentDir + '\test.csv');
     List.Add(data);
     List.SaveToFile(GetCurrentDir + '\test.csv');
     form3.Visible:=false;
     form4.visible:=true;
 
    finally
     List.Free;
   end;       //
 end;
 end;
end;
end;

das sind die einzigen zwei Syntaxblöcke welche mit dem Zugriff auf die Daten zu tun haben.

Beisst sich hierbei etwas gegenseitig?


Neu boot hat nichts gebracht.



Gruss