Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 19
end;
procedure TForm1.ParameterClick(Sender: TObject);
// Fenster mit Parameterwerten anzeigen
begin
Form1.Okay.Enabled:=False;
Form1.Parameter.Enabled:=False;
Form2.ShowModal;
Form1.Okay.Enabled:=True;
Form1.Parameter.Enabled:=True;;
end;
procedure TForm1.FormCreate(Sender: TObject);
// Start des Programms und initialisieren der Variablen
begin
Radius:=90;
DAusen:=23;
DPappe:=0.2;
DKapton:=0.08;
MI:=0.000;
ML:=0.0013;
MP:=0.81;
MK:=0.77;
RadiusGon:=57.3;
Binning:=False;
Status.SimpleText:='Bereit'
end;
procedure TForm1.QuellnameChange(Sender: TObject);
// Direkte Eingabe der Quelldatei
begin
Zielname.Text:=ChangeFileExt(Quellname.Text,'.ASC');
Application.ProcessMessages;
Extension:=UpperCase(ExtractFileExt(Quellname.Text));