Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 15
procedure ExitClick(Sender: TObject);
procedure OkayClick(Sender: TObject);
procedure ParameterClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure QuellnameChange(Sender: TObject);
private
{ Private-Deklarationen }
Einlesen, Schreiben: TStringList;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Extension: String;
implementation
{$R *.DFM}
procedure TForm1.QWahlClick(Sender: TObject);
begin
If OpenDialog1.Execute then
Quellname.Text:=OpenDialog1.Filename;
Zielname.Text:=ChangeFileExt(OpenDialog1.Filename,'.ASC');
Extension:=UpperCase(ExtractFileExt(OpenDialog1.Filename));
end;
procedure TForm1.ExitClick(Sender: TObject);
begin
Form1.Close;
end;