Neue ini file erstellen

chriG_L · Hält's aus hier Beiträge: 15

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!

markieren

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 Christian S.: Überflüssige Zeilenumbrüche entfernt
Moderiert von Christian S.: Topic aus Sonstiges (Delphi) verschoben am Fr 23.03.2007 um 15:52

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

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

markieren

Delphi-Quelltext

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

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

chriG_L · Hält's aus hier Beiträge: 15

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

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn du nichts reinschreibst, wird die Datei nicht erstellt.

PS: Was heißt "tape"?

chriG_L · Hält's aus hier Beiträge: 15

super hat funktioniert!
danke!

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

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme