Textdatei in Record Muster überführen

[Klaus01]

.. auslesen könnte so gehen..

Delphi-Quellcode:

procedure readRandomDataset(fileName: TFilename; var dataSet: TSprueche);
var
  dataFile : file of TSprueche;
  idx : longInt;
begin
  assignFile(dataFile,fileName);
  reset(dataFile);                 //Datei öffnen, Dateizeiger auf Pos. 0
  idx := random(sizeOf(dataFile)); // ermitteln eines zufälligen Datensatzes/Records
  seek(dataFile,idx);              // setze Dateizeiger auf den zufälligen Datensatz 
  read(dataFile,dataSet);          // lese Datensatz/Record
  closeFile(dataFile);             // Datei schliessen
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dataSet : TSprueche;
begin
  readRandomDataSet('...',dataSet);
  memo1.Lines.Add(format('%s von %s',[dataSet.author,dataSet.textValue]));
end;

Einbauen könnte man noch eine gescheite Fehlerbehandlung.

Grüße
Klaus