txt auslesen und zeichen zählen

[fabi65]

hi,
ich möchte eine txt auslesen und die zeichen in der TXT auslesen. Nur weiß ich nett wie ich das anstellen soll..

[ReDoX]

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;

[marabu]

Oder meinst du vielleicht eher sowas:

Delphi-Quellcode:

program cstat;

{$APPTYPE CONSOLE}

uses
  Classes,
  StrUtils,
  SysUtils;

type
  TCounterArray = array [byte] of integer;
var
  ca: TCounterArray;
  line: string;

procedure CountChars(s: string; var ca: TCounterArray);
var
  i: integer;
begin
  for i := 1 to Length(s) do
    Inc(ca[Ord(s[i])]);
end;

begin
  Assign(input, '');
  Reset(input);
  while not Eof do begin
    ReadLn(line);
    CountChars(line, ca);
  end;
  CloseFile(input);

  AssignFile(output, '');
  Rewrite(output);
  WriteLn('Zeichen,Vorkommen');
  for i := 32 to 255 do
    if ca[i] > 0 then
      WriteLn(Format('"%s",%d', [Chr(i), ca[i]]));
  CloseFile(output);
end.

Grüße vom marabu

[Luckie]

Wie wäre es mit length und der Text-Eigenschaft:

Delphi-Quellcode:

cnt := lenght(Memo1.Text);