Hi,
guck dir mal TStringlist an.
Mfg ReDoX
Edit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var SL : TStringlist;
count, i : Integer;
begin
count := 0;
sl := Tstringlist.create;
sl.LoadFromFile('C:\test.txt');
for i := 0 to sl.Count-1 do
count := count + length(sl[i]);//Leerzeichen werden gezählt
//count := count + length(trim(sl[i]));//Leerzeichen werden gezählt nicht gezählt
Showmessage(IntToStr(count));
end;