array-typ erforderlich

[daNiii]

Obwohl ich ein array benütze kommt an gekenntzeichneter Stelle meines Programmcodes der Fehler: Array-typ erforderlich

Delphi-Quellcode:

var
  Form1: TForm1;
   Position: array [1..5,1..28] of string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Zeile_eingabe, Spalte_eingabe: integer;
gesucht: string;
begin
Zeile_eingabe:= strtoint(ed_zeile.text);
Spalte_eingabe:= strtoint(ed_spalte.text);
gesucht:= Position[Spalte_eingabe,Zeile_eingabe]; //Fehler

Memo1.lines.clear;
Memo1.lines.add(gesucht);

end;

procedure TForm1.FormShow(Sender: TObject);
var

  Zeile, Spalte, stringlaenge: integer;
  Spalteninhalt, Zelleninhalt: string;
Daten: tstrings;
ZeAnzahl, wo: integer;
begin
Memo1.lines.clear;


Daten := TStringList.Create;
Daten.LoadFromFile(extractfilepath(application.exename) +'daten.txt');
ZeAnzahl:= 0;

for Zeile := 1 to 28 do       begin
 ZeAnzahl:= ZeAnzahl +1;
 Spalteninhalt:= Daten.strings[ZeAnzahl];

              for Spalte := 1 to 5 do  begin

              Zelleninhalt:= Spalteninhalt;
                 wo:= pos(';', Zelleninhalt);
                 Zelleninhalt:= Copy(Spalteninhalt,1,wo-1);
                 Position[Spalte, Zeile]:= Zelleninhalt;
                 stringlaenge:= Length(Spalteninhalt);
                 Spalteninhalt:= Copy(Spalteninhalt,wo+1,stringlaenge-wo+1);


              end;
    end;

Daten.free;


end;