.txt Datei einlesen (CommaSeperated)

[DoctorCox]

Hey, vielen Dank schonmal für die ganzen Antworten hier , auch wenn ich zugegebenermaßen nicht alles davon verstanden habe ;D
Deswegen habe ich jetzt auch eine andere Lösung gefunden, die wir so im Info-Unterricht hatten! Da Hätte ich allerdings auch ne Frage zu.

Ich habe mir jetzt ne function gesschrieben, die mir die Wörter einzeln aus dem Textfile beim einlesen ausgibt (ausgeben sollte):

Code:

function TForm1.cutwords(s:string): string;
VAR p:integer;
BEGIN
p:=pos(',' , s);           //sucht mir die Kommaposition
result:=COPY(s, 1, p-1);   //gibt mir den string bis zum Komma aus
                             (den ich dann ins Memo schreibe)
DELETE(s, 1, p);           //hier sollte jetzt das bereits 
                           //gelöscht werden, damit die funtion mir
                           //mir den nächsten string ausgeben kann
END;

Am löschen hapert es aber glaube ich, denn wenn ich die Datei einlesen bekomme ich in den Memos nur jwls. "1" oder "2" ausgegeben. 1 und 2 sind halt auc die ersten stellen in dem .txt file, weshalb ich denke, dass dort nicht richtig gelöscht wird...
Weiß evtl. jemand wo der Fehler liegt?

Gruß Cox