[wildil]

Здраствуйте!
нужна помощь...
допустим есть файл, содержание которого:

Код:

Canon
Epson
Sony
Canon
Sony
Sony
Canon
и т.д.

нужно узнать,сколько раз упоминались слова Canon,Epson,Sony?
это уже вторая часть программы....по сути вроде не сложно,но проблемы со строками у меня.....

[lmikle]

Ну так и считай.
Загрузи файл в StringList.
Отсортируй (можно и не сортировать, но с сортировкой проще).
Заведи массив, где будешь хранить название и сколько раз встречается.
И далее циклом сравнивай и плюсуй.

[wildil]

C этим разобрался! еще один вопрос
есть листбох в котором стороки с таким содержанием:

Сломался Canon
Сломался Epson
и т.д...

нужно записать в файл обрезав Сломался , получается, только для первой строки,а для каждой не понимаю как....

[M.A.D.M.A.N.]

Код:

Var InStr:String;
Begin
    InStr:=ListBox.Strings[{Index}];
    InStr:=Copy(InStr,1,{Нужное количество символов});    
End;

[lmikle]

Код:

var
  Buf : TStringList;
  I : Integer;
begin
  Buf := TStringList.Create;
  For I := 0 To ListBox1.Items.Count-1 Do
    Buf.Add(StringReplace(ListBox1.Items[i],'Сломался ','',[]);
  Buf.SaveToFile('myfilename.txt');
  Buf.Free;
end;

Вырезает слово 'Сломался ' (именно с пробелом) в любом месте (заменяет на пустую строку).