ein paar wichtige Sachen:
-Dein Compiler sagt sicherlich:
'Variable 's' möglicherweise nicht initialisiert';
So hast du in 's' immer noch Speichermüll drin und bekommst nie ein richtiges Ergebniss.
Du gehst davon aus, dass deine Datei immer aus 10 Einträgen besteht. Wenn du schreibst'
Delphi-Quellcode:
reset(f);
while not EOF(f) do
readln(f,sonstwohin);
werden alle Zeilen eingelesen.
READ ist für typisierte Dateien, um Textdateien zu lesen ist ReadLn der richtige Weg.
Wenn du einen Opendialog schon dynamisch erstellst, solltest du ihn auch wieder freigeben.
Im Zweiten for-Teil schreibst du alle Zeilen hintereinander.
Wenn du wirklich nur die Zeichenanzahl in deiner Datei haben willst, kannst du die Zeilen auch nur in eine string-Variable einlesen, also:
Delphi-Quellcode:
str:string; i: integer;
...
Assignfile(f,open.filename);
reset(f);
i:=0;
while not EOF(f) do
begin
readln(f,str);
inc(i,length(str));
end;
label1.caption:='Hier hab ich grad '+inttostr(i)+' Zeichen gefunden.';
Ist jetzt nicht getestet aber in die Richtung sollte was gehen