Aufbau und Charakterisierung eines Guinier-Diffraktometers

Anhang A - 18
// Falls Guinier-Diffraktometer
if Extension='.GUN' then begin
Einlesen := TStringList.Create;
Schreiben := TStringList.Create;
Einlesen.LoadFromFile(Quellname.Text);
zeile:=0;
// Dateianfang bis zu den Meßwerten ueberspringen
repeat
if Pos('Nr.', Einlesen.Strings[zeile]) > 0 then Break;
Inc(zeile);
until (Pos('Nr.', Einlesen.Strings[zeile]) > 0) or (Zeile>Einlesen.Count-2);
Inc(Zeile);
// Datenzeilen einlesen und auswerten
repeat
Zeileninhalt:=Einlesen.Strings[Zeile];
// Winkel extrahieren
PosPunkt:=POS('.',Zeileninhalt);
ZeilenTeil:=Copy(Zeileninhalt,1,PosPunkt);
Zeileninhalt:=Copy(Zeileninhalt,PosPunkt+1,255);
Val(ZeilenTeil,DWinkelGanz,Erfolg);
Val(Zeileninhalt,DWinkelKomma,Erfolg);
DWinkel:=DWinkelGanz+(DWinkelKomma*Power(10,-(Erfolg-1)));
//Meßwert einlesen und korrigierten Wert berechnen
Zeileninhalt:=Copy(Zeileninhalt,Erfolg,255);
Val (Zeileninhalt,DIntensM,Erfolg);
DIntensK:=Round(DIntensM*exp(ML*2*RadiusGon*cos(PI*(45-DWinkel)/180)));
Schreiben.Add(FloatToStrF(DWinkel,ffFixed,10,4) + ' ' + IntToStr(DintensK));
Inc(zeile);
until zeile > einlesen.count - 1;
Schreiben.SaveToFile(Zielname.Text);
Einlesen.Clear;
Schreiben.Clear;
end;
Status.SimpleText:='Bereit'