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;                    

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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

; *******************************************************
; *              *
; *     Delphi Runtime Library                          *
; *              *
; *  Copyright (c) 1996,98 Inprise Corporation  *
; *              *
; *******************************************************

  INCLUDE  SE.ASM
  INCLUDE  FILEIO.ASM

  .386
  .MODEL  FLAT

  EXTRN  ReadFile:NEAR, GetLastError:NEAR, SetInOutRes:NEAR

  PUBLIC  _BlockRead

  .CODE

;  PROCEDURE _BlockRead( f: File; buffer: Pointer; recCnt: Longint; var result: Longint);

_BlockRead PROC

; ->  EAX  Pointer to file variable
;  EDX  Pointer to buffer
;  ECX  Number of records to read
;  [ESP+4]  Pointer to result or nil

  PUSH  EBX
  PUSH  ESI

  MOV  EBX,EAX
  MOV  ESI,EDX

  MOV  EDX,[EBX].Mode    ; File must be open
  SUB  EDX,fmInput
  CMP  EDX,fmInOut-fmInput
  JA  @@fileNotOpen

;  ReadFile(f.Handle, buffer, recCnt*f.RecSize, @result, Nil);

  PUSH  ECX

  PUSH  0      ; space for OS result
  MOV  EAX,ESP

  PUSH  0      ; pass lpOverlapped
  PUSH  EAX      ; pass @result

  MOV  EAX,[EBX].RecSize
  MUL  ECX
  PUSH  EAX      ; pass nNumberOfBytesToRead

  PUSH  ESI      ; pass lpBuffer
  PUSH  [EBX].Handle    ; pass hFile
  CALL  ReadFile
  DEC  EAX      ; check EAX = TRUE
  POP  EAX      ; pop result
  POP  ECX
  JNZ  @@error

  XOR  EDX,EDX
  DIV  [EBX].RecSize    ; recCnt = result DIV f.RecSize
  MOV  EDX,[ESP+4+8]
  TEST  EDX,EDX
  JE  @@noResult
  MOV  [EDX],EAX
@@exit:
  POP  ESI
  POP  EBX

  RET  4

@@noResult:
  CMP  EAX,ECX
  JE  @@exit
  MOV  EAX,100
  JMP  @@errExit

@@error:
  CALL  GetLastError
@@errExit:
  CALL  SetInOutRes
  XOR  EAX,EAX
  JMP  @@exit

@@fileNotOpen:
  MOV  EAX,103
  JMP  @@errExit

_BlockRead ENDP

  END                    

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

EXTRN  ReadFile:NEAR <---

{...}
;  ReadFile(f.Handle, buffer, recCnt*f.RecSize, @result, Nil);

  PUSH  ECX

  PUSH  0      ; space for OS result
  MOV  EAX,ESP

  PUSH  0      ; pass lpOverlapped
  PUSH  EAX      ; pass @result

  MOV  EAX,[EBX].RecSize
  MUL  ECX
  PUSH  EAX      ; pass nNumberOfBytesToRead

  PUSH  ESI      ; pass lpBuffer
  PUSH  [EBX].Handle    ; pass hFile
  CALL  ReadFile  <---
{...}