Editfelder aus anderer unit auslesen ?

Fisheye · Hält's aus hier Beiträge: 11

Ich will einen Initdir für den OpenDialog festlegen. Ich will das Initdir in einer eigenen Form festlegen, so als optionen. In den Optionen muss der Pfdad in ein Editfeld eingegeben werden, der pfad wird dann in einer Ini Datei gespeichert, nur wie lese ich den wert in unit 1 aus ?

Lange Rede kurzer sinn hier mein Code.

markieren

Delphi-Quelltext

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

// Schreiben der Ini Datei
procedure TForm2.Button1Click(Sender: TObject);
var
Ini : TIniFile;
Path : String;
begin
   try
      Path := ExtractFilePath(ParamStr(0));
      Ini:=TIniFile.Create(Path +('Mediaplayer.ini'));
      Ini.WriteString('Path','Initdir', Edit1.Text);
   finally
      Ini.Free;
      Form2.Close;
  end;
end;

markieren

Delphi-Quelltext

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

// Auslesen der Ini Datei

procedure TForm1.Open1Click(Sender: TObject);   // I Bau !
var
Ini : TIniFile;
dir : string;
begin
If OpenD.Execute then
try
Ini := TiniFile.Create(ExtractFilePath(Paramstr(0)) + ('MediaPlayer.ini'));
dir := Ini.ReadString('Path','Initdir','//Was kommt hier rein ?'  );
Finally
Ini.Free;

...

Ich hoffe ihr könnt mir helfen

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

ich hab zwar kein duns twas du meinst aber anhand von der zeile
dir := Ini.ReadString('Path','Initdir','//Was kommt hier rein ?' );
geh ich von aus das du wissen willst was der dritte paramter is?
das is ein default wert der genommen wird falls, er in der ini nichts findet

Fisheye · Hält's aus hier Beiträge: 11

Ja genau ich will wissen was da rein soll um den 3. Parameter aus der ini auszulesen.
Der Wert ändert sich eben jenachdem was man in das Edit Feld einträgt.
Da wollte ich wissen wie man variable Werte aus einer Ini ausliest ?

Narses · Verfasst: Mi 11.01.06 22:49

Moin!

Fisheye hat folgendes geschrieben:

Ja genau ich will wissen was da rein soll um den 3. Parameter aus der ini auszulesen.
Der Wert ändert sich eben jenachdem was man in das Edit Feld einträgt.
Da wollte ich wissen wie man variable Werte aus einer Ini ausliest ?

Glaskugel hat folgendes geschrieben:

Systemfehler: Bitte Eingabe prüfen und erneut versuchen!

Was willst du da tun, deine Frage ergibt keinen Sinn?!

cu
Narses

Fisheye · Hält's aus hier Beiträge: 11

Man nehme ein Edit Feld. dort schreibt man einen String rein, dann mehme amnn die Prozedur von oben, jene welche die Ini erstellt und die Parameter in die ini schreibt.

Dann nehme man eine andere Unit und versuche von dort aus den Wert im 3. Parameter auszulesen. Leider weiß ich nicht wie das geht ?

Oder geht das mit Inis nicht, habe mit Inis gerade erst angefangen ? Könnte natürlich sein das alle meine Überlegungen hinfällig und ich mir etwas ausdenken muss.

Die Sache ist die, ich will einen MP3 Player schreiben (Ja ich weiß nicht sehr orriginell). Nun wollte ich den OpenDialog ein Defaultfolder vorgeben, dass sich verändern lässt. (keder hat seine MP3s ja woanders, Deafultfolder deswegen damit das ewige Ordner wechseln wegfällt) Also habe ich das Editfeld in dem das Deafultfolder eingetragen wird in einen eigene Unit/Form gesteckt. (Sieht besser aus) Jetzt kam die Frage auf, wie bekomme ich das Defaultfolder (Also das was im Edit Feld steht) von Unit 2 in unit 1. Da dachte ich mir ich lege eine Ini an , von der die Unit 1 einfach den Wert aus der Ini ausliest.

Narses · Verfasst: Mi 11.01.06 23:30

Moin!

Also, der 3. Parameter gibt den Wert vor, der zurückgegeben wird, wenn der gesuchte Schlüssel in der INI-Datei nicht gefunden wurde (sog. Default-Wert).

Was du vor hast, würde ich so machen: Im OnCreate der 2. Form (die mit den Einstellungen) den Pfad aus der INI lesen (und für den 3. Parameter hier dann das eintragen, was genommen werden soll, wenn es die INI noch nicht gibt) und in der 1. Unit einfach auf den Inhalt des Editfeldes zugreifen, so ungefähr:

markieren

Delphi-Quelltext

1:	Form2.Edit1.Text

Im FormDestroy der 2. Unit dann einfach den Pfad in die INI schreiben.

cu
Narses

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme