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