1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function zaehleBuchstabe(DateiName : String; Buchstabe : Char) : Integer;
var
  i : Integer;
  Ms1 : TMemoryStream;
  VergleichChar : Char;
begin
  Result := 0;
  Ms1 := TMemoryStream.Create;
  if FileExists(DateiName) then
  begin
    Ms1.LoadFromFile(DateiName);
    for i := 0 to Ms1.Size - 1 do
    begin
      Ms1.Read(VergleichChar, 1);
      if VergleichChar = Buchstabe then
        inc(Result);
    end;
  end;
  Ms1.Destroy;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var
  BuchstabenCount : Integer;
begin
  BuchstabenCount := zaehleBuchstabe('C:\Beispiel.dat', 'A')
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function CountChars(const aFileName: String; c: Char): Integer;
const
  MAX = 10240;
var
  aStream: TFileStream;
  szBuffer: array [1..MAX] of Char;
  i, iReadCount: Integer;
begin
  Result := 0;
  aStream := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyWrite);
  try
    while aStream.Position < aStream.Size do
    begin
      iReadCount := aStream.Read(szBuffer, MAX);
      for i := 1 to iReadCount do
        if szBuffer[i] = c then
          Inc(Result);
    end;
  finally
    aStream.Free;
  end;
end;					

1:
2:
3:
4:
5:

var
  c : Char;
begin
  c := 's';
  Showmessage(String(c));					

1:
2:
3:
4:
5:
6:

var
  s : String
  c : Char;
begin
  s := 'Hello world';
  c := s[1]					

1:
2:
3:
4:
5:

const
  MAX = 10240;
{ ... }
      iReadCount := aStream.Read(szBuffer, MAX);
{ ... }					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

function zaehleZeichen(DateiName : String; Buchstabe : Char) : Integer;
var
  i : Integer;
  InFile : File;
  InBuffer : PChar;
  Gelesen : Integer;
  InPos : Pointer;
const
  BufferSize = 1048576;
begin
  Result := 0;
  if FileExists(DateiName) then
  begin
    GetMem(InBuffer, BufferSize);
    AssignFile(InFile, DateiName);
    Reset(InFile, 1);
    repeat
      BlockRead(InFile, InBuffer^, BufferSize, Gelesen);
      InPos := Pointer(InBuffer);
      for i := 0 to Gelesen - 1 do
      begin
        if Char(InPos^) = Buchstabe then
          inc(Result, 1);
        InPos := Pointer(Cardinal(InPos) + 1);
      end;
    until (Gelesen < BufferSize);
    FreeMem(InBuffer);
    CloseFile(InFile);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(zaehleZeichen('C:\test.txt', 'b')));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TMemoryStream.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;