Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**oldi**

irgendwie funktioniert meine copy anweisung net... bekomm nen fehler : 'nicht genügend wirkliche parameter' was mach ich falsch ? Hier der code :

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  File1: Textfile;

  verz: String;

  String1: String;

  position1: Integer;

  laengestring1: Integer;

  startkurs: Integer;

  kurs: real;

  laengekurs: Integer;

  gesstring: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

// NMHTTP1.Get('http://www.waehrungskurs.de/all_currencies.php');

    startkurs:=1;

    laengekurs:=1;

     gesstring:=edit1.text;

     laengekurs:=strtoint(edit2.text);

    GetDir(0,verz);

    AssignFile(File1, 'body.txt');

    Reset(File1);

  while (not EoF(File1)) do

  begin

    Readln(File1,String1);

    Memo1.Lines.Add(String1);

    position1:=Pos(gesstring, String1);

    laengestring1:=Length(gesstring);

    startkurs:=laengestring1+position1+1;

    kurs:=strtofloat(copy(String1[startkurs], laengekurs));

  end;

end;

danke,
gruß björn