Hi xstream,
die Klassendeklaration sollte anschließend ungefähr so aussehn:
Delphi-Quellcode:
type
TForm2 = class(TForm)
//Hier steht irgendwas
private
{ Private declarations }
function Schritt3(Schritt: integer): String; //Hier muss die Funktion rein
public
{ Public declarations }
//Hier steht vielleicht noch irgendwas
end;
Dann hättest du den ersten Schritt schon.
Zum zweiten Teil. Deine Funktion sieht zur Zeit so aus:
Delphi-Quellcode:
function Schritt3(Schritt: integer): String;
var Nr: Integer;
Bis: Integer;
line: Integer;
speicher: TStringList;
offen: TStringList;
a: String;
begin
//Hier steht vielleicht irgendwas
a:=FindComponent('OpenDialog' + IntToStr((line+StrToInt(datei.Strings[1]))));
offen.LoadFromFile(TOpenDialog(a).FileName);
//Hier steht vielleicht auch irgendwas
end;
Die erste Zeile der Funktion änderst du um in
function TForm2.Schritt3(Schritt: integer): String;
Anschließend sollte es funktionieren. Und falls der Compiler einen Fehler meldet, bitte sage uns wo im Code der Fehler auftritt und welcher es ist.
Greetz
alcaeus