Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 14
{ #################################################################
# #
# Programm zur Korrektur der gemessenen Intensitaeten bezueglich #
# Absorption bei Guinier-Diffraktometer und Bildplatte #
# #
# Geschrieben von Markus Baier 2001 #
# Lehrstuhl fuer Kristallographie und Strukturphysik #
# Universitaet Erlangen-Nuernberg #
# #
################################################################# }
unit KORREKTUR;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, PBNumEdit, Parameterfenster, ComCtrls, Math;
type
TForm1 = class(TForm)
Bevel1: TBevel;
Bevel2: TBevel;
Quellname: TEdit;
Zielname: TEdit;
QWahl: TButton;
OpenDialog1: TOpenDialog;
Okay: TButton;
StaticText1: TStaticText;
StaticText2: TStaticText;
Exit: TButton;
Parameter: TButton;
Status: TStatusBar;
procedure QWahlClick(Sender: TObject);