AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Datei öffnen

Ein Thema von Headi · begonnen am 5. Dez 2005 · letzter Beitrag vom 5. Dez 2005
 
Headi

Registriert seit: 17. Nov 2005
Ort: Weinfelden
101 Beiträge
 
Delphi 2007 Professional
 
#1

Datei öffnen

  Alt 5. Dez 2005, 16:30
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
Pascal
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz