Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 16
procedure TForm1.OkayClick(Sender: TObject);
var zeile,Ilauf,PosPunkt : Integer;
DScanStart,DScanStep : Double;
DWinkelGanz,DWinkelKomma,DWinkel : Double;
DIntensM: Integer;
DIntensK: Integer;
Erfolg: integer;
WegIn,WegAus,WegKap,WegPap,Kosinus : Extended;
Zeileninhalt,ZeilenTeil,Spaces : String;
begin
Status.SimpleText:=' ';
// Falls Bildplatte
if Extension='.GDF' then begin
Einlesen := TStringList.Create;
Schreiben := TStringList.Create;
Einlesen.LoadFromFile(Quellname.Text);
zeile:=0;
// Kommentar ueberspringen
repeat
if Pos('*/', Einlesen.Strings[zeile]) > 0 then Break;
Inc(zeile);
until (Pos('*/', Einlesen.Strings[zeile]) > 0) or (Zeile>Einlesen.Count-2);
Inc(zeile);
// Startwinkel einlesen
DScanStart:=StrToFloat(Einlesen.Strings[zeile]);
Inc(zeile);
Inc(zeile);
DScanStep:=StrToFloat('0'+Einlesen.Strings[zeile]);
zeile:=zeile+4;
ILauf:=0;
// Zeilen mit Meßwerten umrechnen
repeat
DWinkel:=DScanStart+Ilauf*DScanStep;