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:

unit Unit1;

interface

uses
  ....

type TZeile = record
     Spalte: array [0..55] of string;
end;

type TKatalog = record
     Dateiname: String;
     Zeile: array of TZeile;
end;
...
var
  Datenerfassung_Person,Datenerfassung_Test: TKatalog;

implementation

function TMain.TranslateKatalog(Name:string; zahl:integer):TKatalog;
var: Katalog:=TKatalog;
begin
 If Name='Datenerfassung Person' then Katalog:=Datenerfassung_Person;

 TranslateKatalog:=Katalog;
end;


procedure TMain.ReadCSVKatalog(Dateiname: String; var Katalog: TKatalog; Pfad: String; test2: String; test3: String);
begin
//Katalog wird bearbeitet

end;


procedure TMain.SpeedButton_Katalog_ImportClick(Sender: TObject);
var Datei:Textfile;
    Pfad,Dateiname:string;
    Katalog:TKatalog;
begin

  Pfad := ExtractFileDir(OpenDialog_V.FileName) + '\';
  Dateiname := ExtractFileName(OpenDialog_V.FileName);
  Katalog:= TranslateKatalog('Datenerfassung Person');

  ReadCSVKatalog(Dateiname,Katalog,Pfad,'','');
end;					

1:
2:
3:
4:
5:

TKatalog = record
  Dateiname: String;
  Zeile: array of TZeile;
end;
PKatalog = ^TKatalog;					

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

procedure TMain.SpeedButton_Katalog_ImportClick(Sender: TObject);
var Datei:Textfile;
    Pfad,Dateiname:string;
    PKatalog:PointerKatalog;
begin

  Pfad := ExtractFileDir(OpenDialog_V.FileName) + '\';
  Dateiname := ExtractFileName(OpenDialog_V.FileName);

  PKatalog:=nil;
  New(PKatalog);

  PKatalog:=@Datenerfassung_Person;

  ReadCSVKatalog(Dateiname,PKatalog,Pfad,'','');

  ShowMessage(PKatalog.Dateiname);
  ShowMessage(Datenerfassung_Person.Dateiname);

  Dispose(PKatalog);

  //Hier kommt eine Zugriffsverletzung :-(
  ShowMessage(Datenerfassung_Person.Dateiname);