Entwickler-Ecke

Dateizugriff - Neue ini file erstellen


chriG_L - Fr 23.03.07 14:44
Titel: Neue ini file erstellen
Hallo Leute,
so ich hab wieder mal ne frage...

Also:

Ich habe ein TEdit wo ich einen namen für eine Einstellung eingeben kann, neben dran ist einen Button mitwelchem ich ich ein neues einstellungsprofil abspeichern kann.
Auf button klick öffnet sich das savedialog fenster. im Erreignis buttonklick füge ich dem savedialog.filename den Teditstring + '.ini' ein. soweit alles gut.

Wenn ich nun ein neues ini file erstellen will, tape ich in den fehler. Kann mir jemand anhand des codes erklären wiso das nicht klapt!? vielleicht einen lösungsansatz!?

besten dank!



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
procedure TForm2_connection.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
 savedialog1.FileName:=con_e_name.Text+'.ini';
 if savedialog1.Execute then
    begin
     try
      Ini:=TIniFile.Create(savedialog1.FileName+'\'+con_e_name.Text);
     finally
      Ini.Free;
     end;
  end;
end;


gruss christian

Moderiert von user profile iconChristian S.: Überflüssige Zeilenumbrüche entfernt
Moderiert von user profile iconChristian S.: Topic aus Sonstiges (Delphi) verschoben am Fr 23.03.2007 um 15:52


Blackheart666 - Fr 23.03.07 14:49

Dann lass Dir doch mal den Pfad ausgeben, dann kommst Du vieleicht selbst drauf.

Delphi-Quelltext
1:
ShowMessage(savedialog1.FileName+'\'+con_e_name.Text);                    


chriG_L - Fr 23.03.07 14:53

ach ja genau...probier einmal...
danke bis jetzt;-)


Delete - So 25.03.07 04:34

Wenn du nichts reinschreibst, wird die Datei nicht erstellt.

PS: Was heißt "tape"?


chriG_L - Di 27.03.07 16:59

super hat funktioniert!
danke!

ahh übrigens 'tape' war einer von meinen vielen schreibfehler...
(sollte tappen heissen):-D


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
procedure TForm2_connection.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
savedialog1.FileName:=con_e_name.Text+'.ini';
if savedialog1.Execute then
    begin
     try
      if
      Ini:=TIniFile.Create(savedialog1.FileName);
      ini.WriteString('Einstellungen','Name',con_e_name.Text);
      Ini.WriteString('Einstellungen','COM','COM');
      Ini.WriteInteger('Einstellungen','Baude',0);
     finally
      Ini.Free;
     end;
  end;
end;