|
#1
|
|||
|
|||
Нужна помощь....
Здраствуйте!
нужна помощь... допустим есть файл, содержание которого: Код:
Canon Epson Sony Canon Sony Sony Canon и т.д. это уже вторая часть программы....по сути вроде не сложно,но проблемы со строками у меня..... |
#2
|
|||
|
|||
Ну так и считай.
Загрузи файл в StringList. Отсортируй (можно и не сортировать, но с сортировкой проще). Заведи массив, где будешь хранить название и сколько раз встречается. И далее циклом сравнивай и плюсуй. |
#3
|
|||
|
|||
C этим разобрался! еще один вопрос
есть листбох в котором стороки с таким содержанием: Цитата:
|
#4
|
||||
|
||||
Re: Нужна помощь....
Код:
Var InStr:String; Begin InStr:=ListBox.Strings[{Index}]; InStr:=Copy(InStr,1,{Нужное количество символов}); End; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
|||
|
|||
Код:
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; Вырезает слово 'Сломался ' (именно с пробелом) в любом месте (заменяет на пустую строку). |