Problem Array of String

[erdoganatalay]

Hallo erstmal
ich bin dabei ein (sehr einfaches) Vokabel-Abfrag Programm zu schreiben.
Dabei hab ich jetzt versucht in ein Label einen aus einer Datei gelesenen Text als Caption zu speichern. Aber seht es euch doch selber an:

Delphi-Quellcode:

const Max = 30;

var
  Form1: TForm1;
  Datei : TextFile;
  DateiName : String;
  Vokabel : Array[1..Max] of String;
  RLoesung : Array[1..Max, 1.. 1] of String;
  Nr, alt : Integer;
  r,f : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  alt := 0;
  r := 0;
  f := 0;
  randomize;
 try
  if OpenDialog1.Execute
  then
    begin
      DateiName := OpenDialog1.FileName;
    end
  else
      DateiName := 'Vokabeln.txt';
  AssignFile (Datei, DateiName);
  Reset (Datei);
  for i:= 1 To Max do
  begin
    ReadLn (Datei, Vokabel[i]);
    ReadLn (Datei, RLoesung[i,1]);
  end; //for
  CloseFile (Datei);
 except
  Showmessage('Datei oder Daten nicht gefunden!');
 end; //try
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Nr := random (Max) +1;
  if Nr <> alt
  then
  begin
    Label5.Caption := Vokabel[Nr];
    alt := Nr;
  end
  else
    Form1.Button1.Click;
end;

end.

So als Fehlermeldung erhalte ich, dass TString erlaubt wäre aber Array vorhanden (Label5)

Könnt ihr mir helfen

PS: hab es auch schon mit RichEdit und Memo probiert funzt auch nicht...

[alzaimar]

Die Fehlermeldung kenn ich gar nicht.

[erdoganatalay]

Original:

Zitat:

[Error] Programm1.pas(95): Incompatible types: 'String' and 'Array'

[Satty67]

Die Fehlermeldung kommt aber mit ziemlicher Sicherheit nicht in dem Code vor, den Du gepostet hast. Bei mir läuft es...

Evtl. mal genau die Zeile 95 posten (obwohl das schon in Button2.Click sein müsste) und die Formular-Deklaration (also das was am Anfang kommt). Vielleicht eine unglückliche Namensgleichheit.

[p80286]

Auffällig ist, das "alt" irgendwo vom Himmel fällt, sprich keinen Initialwert erhält. Ist in diesem Zusammenhang nicht wichtig aber trotzdem unschön.

Gruß
K-H

[erdoganatalay]

Zitat von p80286:

Auffällig ist, das "alt" irgendwo vom Himmel fällt, sprich keinen Initialwert erhält. Ist in diesem Zusammenhang nicht wichtig aber trotzdem unschön.

Gruß
K-H

also alt erhält schon bei Button1.Click einen Wert (nämlich 0)

Aber wieder zum eigentlichen Problem: Dieses hat sich gelöst. War ein sehr bitterer Fehler (hab 2 Zeichen vergessen).
Danke für eure Komments und Hilfen!!