1:

 winkel_x:array[0..600]of string ; // eingelesen Winkelwerte					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

...
var sl:TStringList;
      F:Single;
begin
  ls:=TStringList.create;
  try
    ls.loadFromFile('c:\zahlen.txt');

    f := strToFloat(ls[0]); // zB.

  finally
    ls.free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Procedure CamDateiLesen(namex:string;namey:string);
    {Procedure zum einlesen der Kameradaten und Konvertieren}
var i:integer;
    datei:textfile;
    feld:string;      // Eingelesener Original String

begin
   assignFile(datei,namex);
   reset(datei);
   i:=0;
   while not eof(datei) do begin
         readln(datei,feld);
         delete(feld,1,3);    // Zeilennummer löschen
         delete(feld,3,1);    // Punkt Löschen
         insert(',',feld,3);  // Komma einfügen
         winkel_x[i]:=feld;   // neuen Wert in Array als string übergeben
         inc(i);
   end;
   close(datei);

   assignFile(datei,namey);
   reset(datei);
   i:=0;
   while not eof(datei) do begin
         readln(datei,feld);
         delete(feld,1,3);    // Zeilennummer löschen
         delete(feld,3,1);    // Punkt Löschen
         insert(',',feld,3);  // Komma einfügen
         winkel_y[i]:=feld;   // neuen Wert in Array als string übergeben
         inc(i);
   end;
   close(datei);
   WNamex:=namex;
   WNamey:=namey;
end;					

1:
2:
3:
4:
5:

   while not eof(datei) do begin 
         readln(datei,feld); 
         winkel_x[i]:=   stringReplace(copy(feld,4,length(feld)-4),'.',',',[rfReplaceAll]); 
         inc(i); 
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

procedure TForm_main.SprungClick(Sender: TObject);
{Aussrechnen der Sprungweite
  (letzte Berrechnungen die auf den Werten der Procedure Rechnen beruhen)

 * als letzter Schritt sollen die x, y Koordinaten des Landepunktes berrechnet
   werden }


var AlphaL,BetaL:single;
var zeileLA,zeileLB:integer; //zeilennummern des Landepunktes
     zla,zfa,zlb,zfb:single;
     zla1,zlb1:string[12];

begin
   // Zeilennummer für Landepunkt ermitteln

     zeileLA:=sx1;
     zeileLB:=sy1;

  // Zeilennummer des Landepunktes einlesen und konvertieren in Float

     //wx.Text:=Winkel_X[zeileLA];
      zla1:='45,78';
     zla:=strtofloat(zla1);      //Versuch was zu konvertieren

     wy.Text:=Winkel_y[zeileLB];   //Versuch zu Konvertieren
     zlb:=strtofloat(wy.Text);

  // Zeilennummern des Fixpunkts einlesen und konvertieren in Float

    //zfa:=WLaden(WNamex,zeileFixX);    // ein weiter versuch
    zfb:=strtofloat(Winkel_X[zeileFixY]);

    //zla1:=winkel[zeileFixX].x;

  // Ausrechnen der Sprungweite und restliche Werte ausrechnen

    AlphaL:= alphaF+(zla-zfa);  // Winkel zwischen strecke AB und strecke AL
    BetaL:=  betaf-(zlb-zfb);   // Winkel zwischen strecke AB und strecke BL



  end;					

1:
2:

 zla1:='45,78'; 
  zla:=strtofloat(zla1);      //Versuch was zu konvertieren					

1:

showMessage( floatToStr( strToFloat('45,78') ) );					

1:
2:

zfa:=strtofloat(Winkel_X[zeileFixX]);
    zfb:=strtofloat(Winkel_Y[zeileFixY]);					

1:
2:
3:
4:

showMessage('A:'+Winkel_X[zeileFixX]+'  B:'+Winkel_Y[zeileFixY]);
zfa:=strtofloat(Winkel_X[zeileFixX]); 
zfb:=strtofloat(Winkel_Y[zeileFixY]);
showMessage('A:'+floatToStr(zfa)+'  B:'+floatToStr(zfb));