Variablen zusammensetzten

[alcaeus]

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