Datum+Dateiname erzeugen

beljo · Beiträge: 129

Hallo Leute,
hab gerade eine Datei erzeugt mit Datumsanzeige

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
 if savedialog1.execute then
 begin
 { Present:= Now;   }
   DateTimeToString(s, 'yymmdd', now);
   ini := TIniFile.create(SaveDialog1.Filename+s+'.txt');
   {Speichern der Hauptabmessungen}
   ini.writeString('Hauptabmessungen','Statornutaussendurchmesser [mm] da1....',Edit1.text);
   ini.writeString('Hauptabmessungen','Bohrungsdurchmesser        [mm] di1....',Edit2.text);

Leider ist es mir nicht möglich das Datum vor demDateinamen zu plazieren.
Also 060327+Dateiname.txt soll rauskommen.
hab jede kombiniation versucht. In der Hilfe war leider nichts zu finden.
hoffe ihr könnt mir helfen.
Danke im Vorraus

Gausi · Verfasst: Mo 27.03.06 10:29

Da musst du den Dateinamen vom SaveDialog erst auseinander nehmen und neu aufbauen:

Den Pfad bekommst du mit ExtractFilePath, und den eigentlichen Dateinamen mit ExtractFileName. Dann den Dateinamen neu setzen, und den alten Pfad wieder davor.

_________________
We are, we were and will not be.

beljo · Beiträge: 129

Ich weis nicht ob ich es richtig verstanden habe.
Hab in der Hilfe nicht wirklich was gefunden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TSM.SpeichernVonGeodatClick(Sender: TObject);
var  Present: TDateTime;
     name:string;
     Year, Month, Day: integer;
      s,a:string;
      weg:string;
begin
 if savedialog1.execute then
 begin
 { Present:= Now;   }
   DateTimeToString(s, 'yymmdd', now);
   Name := ExtractFileName(SaveDialog1.FileName);
   weg :=ExtractFilePath (s);
   ini := TIniFile.create(weg+name);

   {Speichern der Hauptabmessungen}
   ini.writeString('Hauptabmessungen','Statornutaussendurchmesser [mm] da1....',Edit1.text);

Leider funzt es nicht, bin halt kein richtiger Programmierer.
kannst Du mir vielelicht noch eine Hilfegestellung geben?

azubi_20 · Verfasst: Mo 27.03.06 11:09

markieren

Delphi-Quelltext

1:
2:
3:
4:

   DateTimeToString(s, 'yymmdd', now);
   Name := ExtractFileName(SaveDialog1.FileName);
   weg :=ExtractFilePath (SaveDialog1.FileName);
   ini := TIniFile.create(weg+s+name+'ini');

beljo · Beiträge: 129

Danke Leute hat gefunzt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TSM.SpeichernVonGeodatClick(Sender: TObject);
var  Present: TDateTime;
     name:string;
     Year, Month, Day: integer;
      s,a:string;
      weg:string;
begin
 if savedialog1.execute then
 begin
 { Present:= Now;   }
   DateTimeToString(s, 'yymmdd', now);
   Name := ExtractFileName(SaveDialog1.FileName);
   weg :=ExtractFilePath (SaveDialog1.FileName);
   ini := TIniFile.create(weg+s+name+'.txt');

So geht es wunderbar Danke Jungs :-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme