Doppelkopf-Projekt

[tankm26]

Wieso kann Delphi mit der folgenden procedure die datei ordnung nich finden?

diese liegt im selben ordner wie die exe

edit: jetzt geht's

Delphi-Quellcode:

procedure Tformdoppelkopf.Button1Click(Sender: TObject);
var
f,ordnung:TextFile;
  s: string; 
begin 
  // hier wird eine Textdatei geöffnet und zeilenweise ausgelesen 
  // StringGrid auf eine Zeile reduzieren
  StringGrid1.RowCount:=1;
  // Datei öffnen
  AssignFile(f, 'ordnung'); 
  Reset(f); 
  // solange das Dateiende noch nicht erreicht ist
  while not eof(f) do 
  begin 
    // Zeile aus Textdatei in string lesen 
    Readln(f, s); 
    // in die linke Spalte wird die Zeilennummer geschrieben
    StringGrid1.Cells[0,StringGrid1.RowCount-1] := IntToStr(StringGrid1.RowCount); 
    // in die rechte Spalte die Textzeile
    StringGrid1.Cells[1,StringGrid1.RowCount-1] := s; 
    // Nach jedem Schreiben wird eine Zeile angehängt
    StringGrid1.RowCount :=  StringGrid1.RowCount + 1; 
  end; 
  // Letzte (zuviel) angehängte Zeile wieder entfernen
  StringGrid1.RowCount :=  StringGrid1.RowCount - 1; 
  // Datei schliessen
  CloseFile(f); 
end;