Textdatei

[Matze]

Hallo,

Textdateien sind dafür sicher suboptimal. Eine Datenbank wie Firebird Embedded wäre sicher effizienter. Aber als Übung funktioniert es natürlich auch mit Textdateien.
Ganz grob aus dem Kopf:

Delphi-Quellcode:

var
  myFile: TextFile;
  SearchVoc: string;
  CurrentVoc: string;
begin
  AssignFile(myFile, 'Pfad zur txt');
  SearchVoc := 'gesuchte vokabel';
 
  while not Eof(myFile) do
  begin
    ReadLn(myFile, CurrentVoc);

    if CurrentVoc = SearchVoc then
    begin
      if not Eof(myFile)
      begin
        ReadLn(myFile, CurrentVoc);

        // gesuchte Vokabel: CurrentVoc

        break;
      end;
    end;
  end;
 
  CloseFile(myFile);
end;

Ich habe schon Jahre nichts mehr mit Textdateien gemacht und hoffe, dass es nicht komplett falsch ist.

Grüße, Matze

Edit: "break" eingefügt, damit die Textdatei nicht immer komplett durchlaufen wird.