Hallo leute,
Folgendes, Ich habe ein kleines Programm bei dem man per Klick
mit einem SaveDialog den inhalt von zwei Edit Feldern speichern kann.
Mit einem Klick auf einen OpenDialog kann man diese Datei dann wieder öffnen,
und die Daten werden wieder ins Edit Feld eingetragen.
Das funktioniert auch gut, nur wie mache ich das, wenn der Benutzer die gespeicherte
Datei in mein Programm zieht, über "öffnen mit" öffnet, oder doppelklick?
Bei "öffnen mit" wird mein Programm zwar geöffnet, aber es geschieht nichts.
Hier mein code:
Sry wenn das hier schon öfters gefragt wurde, aber ich konnte bisher noch nichts finden was mir geholfen hat.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls;
type
TForm1 =
class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
Ini: TIniFile;
begin
if SaveDialog1.Execute
then begin
Ini:=TIniFile.Create(SaveDialog1.FileName);
Ini.WriteString('
edtxt','
name',edit1.Text);
Ini.WriteString('
edtxt','
nick',edit2.Text);
Ini.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Ini: TIniFile;
begin
if OpenDialog1.Execute
then begin
Ini:=TIniFile.Create(OpenDialog1.FileName);
Edit1.Text:=Ini.ReadString('
edtxt','
name','
');
Edit2.Text:=Ini.ReadString('
edtxt','
nick','
');
Ini.Free;
end;
end;
end.
Ich hoffe ihr könnt mir helfen
mfg headi