Fremdes Datenformat einfach lesen in Delphi

[raiguen]

Moin
Warum so kompliziert Da es sich um ein reines Textfile handelt, kann man es doch so machen:

Delphi-Quellcode:

procedure Auslesen;
var S: String;
    F: TextFile;
begin
   Assign(F, Pfad_und_Name_der_Textdatei);
   Reset(F);
   while not Eof(F) do
     begin
       Readln(F, S);
       {hier weitere MAssnahmnen um den String anhand der Doku zu zerlegen und entsprechend neu abzuspeichern}
   end; 
   CloseFile(F);
end;

APDATA dürfte ein 'spezielles' Datenformat für Apotheken (Rote Liste für Medikamente etc) sein