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
