.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

[DeddyH]

Wie ist es so?
function TForm1.cutwords(var s:string): string; Den Parameter als Variablenparameter übergeben.

[DoctorCox]

Hey,(
SUPER, es klappt, danke! Jetzt bekomme ich aber eine Fehlermeldung, wenn ich das Programm komplett schließen möchte?(s.Anhang)
Kann es evtl. sein, dass ich vergessen habe irgendwas zu schließen/freizugeben oder ähnliches?

[DeddyH]

Eine 0-Adresse deutet auf einen nil-Pointer hin. Versuchst Du noch, auf Objekte zuzugreifen, obwohl diese schon freigegeben sind?

[DoctorCox]

Also ich hab das ganze mal mit "F7" (Debugger ? ) durchgespielt und am auslesen der datei liegt der Fehler schonmal nicht... Muss also irgendwas schieflaufne, wenn das programm geschlossen wird--> da bleibt ja eig nur die Möglichkeit, dass ich irgendwo die DAtei nicht geschlossen habe o.ä. aber die .txt files werden immer per closefile geschlossen eigtnlich?

[DeddyH]

Was passiert denn beim Schließen (Code)?

[DoctorCox]

Nichts! Das ist ja das Problem... springt einfach auf "end." und dann war's das... Prorgramm schließt sich und Fehlermeldung kommt