[prosto_virus]

Есть txt файл, нужно узнать сколько раз есть слово "Test1".

Код:

1 2 3 4 5 6 7 8 9 10 11

Test1: ***** Test2: ***** Test3: *****   Test1: ***** Test2: ***** Test3: *****   Test1: ***** Test2: ***** Test3: *****

[lmikle]

Ну, например, так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   L : TStringList;   I, C : Integer; begin   C := 0;   L := TStringList.Create;   Try     L.LoadFromFile('filename.txt');     For I := 0 To L.Count-1 Do       If Pos('Test1',L[i]) = 1 Then Inc(C);   Finally     L.Free;   End;   ShowMessage(IntToStr(C)); end;