1:
2:

x.LoadFromFile('c:\Edit.txt');
korSystem.Canvas.LineTo(x,y);                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin

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:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:

function Optimised(Wert: String): String;
Var Res     : String  ;
    Sammler : String  ;
    Ftd1    : Integer ;
begin
  Res      := '' ;
  Sammler  := '' ;

  For Ftd1 := 1 To Length( Wert ) Do
  Begin
    If ( Ord ( Wert[ Ftd1 ] ) <= 32 ) Then Sammler := Sammler + Wert[ Ftd1 ]
    Else
    Begin
      If Not ( Res = '' ) Then Res := Res + Sammler ;
      Res := Res + Wert[ Ftd1 ] ;
      Sammler := '';
    End;
  End;

  Result := Res;
end;

Function GetNDelUntil ( Var Value : String; ASigne : Char ; Optimize : Boolean = TRUE ) : String  ;
Var Res   : String  ;
    Ret   : String  ;
    Len   : Integer ;
    Possition : Integer ;
Begin
  Len   := Length( Value ) ;
  Possition := Pos( ASigne, Value ) ;
  If Possition = 0 Then
  Begin
    Ret := '' ;
    Res := Value ;
  End
  Else
  Begin
    Ret   := Copy( Value, Possition + 1, Len - Possition ) ;
    Res   := Copy( Value, 1, Possition - 1 ) ;
  End ;
  If Optimize Then
  Begin
    Res := Optimised( Res ) ;
    Ret := Optimised( Ret ) ;
  End ;

  Value  := Ret ;

  Result := Res ;
End ;

procedure TForm1.Button1Click(Sender: TObject); // Button1 ist ein "Button" ( TButton ) auf deiner Maske( Form )
Var List : TStrings ;
    AFileName : String ;
    sX, sY : String ;
    i : Integer ;
Begin
  List := TStringList.Create; // Erstma eine instanz der klasse erzeugen ;-)

  // hier wird der dateiname übergeben:
  AFileName := edit1.Text ; // Edit1 ist ein "Edit-Feld" ( TEdit ) auf deiner Maske( Form )

  If FileExists( AFileName ) Then // Ertma prüfen ob überhaupt vorhanden!
  Begin
    List.LoadFromFile( AFileName ) ;

    If List.Count > 0 then
    Begin
      // erste koordinaten-paar ist der startpunkt
      // versuchma mit debugger nachzuvollziehen was in den folgenden 3 Zeilen passiert ;-)
      sY := UpperCase( List[ 0 ] ) ;
      GetNDelUntil( sY, 'X' ) ;
      sX := GetNDelUntil( sY, 'Y' ) ;
      image1.Canvas.MoveTo( strtoint(sX),strtoint(sY) ); // image1 ist ein "Image-Feld" ( TImage ) auf deiner Maske( Form )

      For i := 1 To List.Count - 1 Do
      Begin
        // Einfache Wiederholung:
        sY := UpperCase( List[ i ] ) ;
        GetNDelUntil( sY, 'X' ) ;
        sX := GetNDelUntil( sY, 'Y' ) ;
        image1.Canvas.LineTo( strtoint(sX),strtoint(sY) ); // image1 ist ein "Image-Feld" ( TImage ) auf deiner Maske( Form )

      End ;
    End ;
    
  End
  Else
  Begin
    // kannst hier reaktion auf nichtvorhandene datei angeben
    // z.B.:
    ShowMessage( 'Datei "'+AFileName+'" exsistiert nicht!' ) ;
  End ;

  List.Free ;// instanz freigeben (speicher freigeben) ab jetzt nichtmehr auf "list" zugreifen ;-) -- gibt häsliche errors!
end ;                    

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

//ich geh davon aus dass du zum einlesen auf nen button drückst, ansonsten mach den Code in ne andere procedure rein
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  Buffer: String;
  x: Array[0..4] of Double;
  i: Integer;
begin
  AssignFile(F, 'Dateipfad\Name');  // vor D7 heißts glaub ich nur Assign(F, 'Pfad\Name');
  Reset(F);
  for i:=0 to 4 do begin
    ReadLn(F, Buffer);
    x[i] := StrToFloat(Buffer);
  end;
  CloseFile(F);
end;                    

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

var
  x, y: Double;
TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'Dateiname\Pfad');
  Rewrite(F);
  WriteLn(F, x);
  WriteLn(F, y);
  CloseFile(F);
end;                    

1:
2:

1,5
2,75                    

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

var Sx,Sy :String;
ListX: TStrings;
ListY: TStrings;
.....
begin
ListX := TStringList.Create;
ListX := TStringList.Create;
ListX.LoadFromFile('c:\edit.txt');
ListY.LoadFromFile('c:\edit.txt');
SX:= FloatToStr(ListX.Count);
SX:= FloatToStr(ListX.Count);
begin
KorSystem.Canvas.moveto(300,250); // Nullpunkt wird definiert
KorSystem.Canvas.LineTo(StrToInt(Sx),StrToInt(Sy));
end;
end;                    

1:
2:
3:
4:
5:
6:

 
130
120
140
10
45                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  SX, SY: Integer;
  FX, FY: TextFile;
  Buffer: String;
.....
begin
  AssignFile(FX, 'ersteDatei.txt');  // bzw. Assign(F, 'name.txt');
  AssignFile(FY, 'zweiteDatei.txt');
  Reset(FX);
  Reset(FY);
  ReadLn(FX, Buffer);
  SX := StrToInt(Buffer);
  ReadLn(FY, Buffer);
  SY := StrToInt(Buffer);
  CloseFile(FX);
  CloseFile(FX);
  
  korSystem.Canvas.MoveTo(320,200);
  korSystem.Canvas.LineTo(SX, SY);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure (korSystem.)LineToNeu(x, y: Integer);
var
  UrX, UrY: Integer;
begin
  UrX := 320;
  UrY := 200;
  korSystem.Canvas.LineTo(UrX+x, UrY-y);
end;                    

1:
2:

private
  procedure LineToNeu(x, y: Integer);                    

1:

LineToNeu(SX, SY);                    

1:
2:
3:
4:
5:

12
24
10
5
120                    

1:
2:
3:
4:
5:

7
13
190
12
4                    

1:

SX:= ListX. ???(0);                    

1:
2:

korSystem.Canvas.MoveTo(200,200); // hier gehe ich zum Koordinatenurpsrung
korSystem.Canvas.LineTo(200+(StrToInt(SX));200-(StrToInt(SY))); // hier will ich halt die Linie zeichnen (R/U- Kennlinie)                    

1:
2:
3:
4:
5:

12;7
24;13
10;190
5;12 
120;4                    

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:
44:

function ZeichenKetteAufloesen(s: String; var s1, s2: String): Word;
const
  d = ';';
begin
  s := Trim(s);

  Result := 1; // Wert für Zeile hat keinen Trenner.
  if Pos(d, s) = 0 then Exit;

  Result := 2; // Wert für Trenner ist an ersten Stelle.
  if Pos(d, s) = 1 then Exit;

  s1 := Trim(Copy(s, 1, Pos(d, s) - 1));
  Delete(s, 1, Pos(d, s));
  s2 := Trim(s);

  Result := 0; // Wert für kein Fehler

  // Die Werte sind jetzt in s1 und s2
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s, s1, s2: String;
begin
  Canvas.MoveTo(0,0);

  with Memo1.Lines do
    for i := 0 to Count - 1 do
    begin
      s := Strings[i];
      if Trim(s) = '' then Continue;

      if ZeichenKetteAufloesen(s, s1, s2) > 0 then
      begin
        MessageDlg('Fehlerhafte Werte in Zeile: ' + IntToStr(i + 1),
          mtError, [mbOK], 0);
        Exit;
      end;

      Canvas.LineTo(StrToInt(s1), StrToInt(s2));
    end;
end;                    

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

var Sx,Sy :String; 
ListX: TStrings; 
ListY: TStrings; 
..... 
begin 
ListX := TStringList.Create; 
ListY := TStringList.Create; 
ListX.LoadFromFile('c:\edit.txt'); 
ListY.LoadFromFile('c:\edit2.txt'); 
SX:=FloatToStr(ListX. ...); // und hier dachte ich mir das so irgendwie realisieren zu können weil ich den wert aus der list ja in der varibalen haben will
SY:=FloatToStr(ListY. ...);
begin 
KorSystem.Canvas.moveto(200,220); // Nullpunkt wird definiert 
KorSystem.Canvas.LineTo(StrToInt(Sx),StrToInt(Sy)); 
end; 
end;                    

1:
2:

SX:=FloatToStr(ListX. ...); // und hier dachte ich mir das so irgendwie realisieren zu können weil ich den wert aus der list ja in der varibalen haben will
SY:=FloatToStr(ListY. ...);                    

1:
2:
3:
4:

  with Memo1.Lines do
    for i := 0 to Count - 1 do
    begin
      s := Strings[i];                    

1:

 KorSystem.Canvas.LineTo(200+StrToInt(SX),200-StrToInt(Sy));                    

1:
2:
3:
4:
5:

12;7 
24;13 
10;190 
5;12 
120;4                    

1:
2:
3:
4:
5:

 if not (Key in [#8, '0'..'9']) then
shwomessage('Bitte nur Zahlen eingeben');
Rechner.Widerstand.text:='';
Key:=#0;
end;