Hi,
also rein nach dem Gefühl zu urteilen hast du da was verdreht. Du initialisierst ein Objekt mit einem OpenDialog1.FileName, obwohl der OpenDialog noch gar nicht ausgeführt wurde. Dann führst du ihn aus. Ich würde das mal folgendermaßen verdrehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
ini:=Tinifile.Create(OpenDialog1.FileName);
try
Edit1.Text := OpenDialog1.FileName;
Button1.Caption := ini.ReadString('Buttons','1','');
Button2.Caption := ini.ReadString('Buttons','2','');
Button3.Caption := ini.ReadString('Buttons','3','');
Button4.Caption := ini.ReadString('Buttons','4','');
Button5.Caption := ini.ReadString('Buttons','5','');
finally
ini.Free
end;
end;
end;
end; |
Hat es was gebracht? Wenn nein, muss ich es wohl mal nachspielen.
Gruß, AS
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt.
