Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Привет народ !!! [D6, Win2k]

PETR © (2002-06-07 12:03:00)
Такая вот проблема !

Сделал программку котороя должна выбирать определенное слово(определенного мною) из текстового файла,и такая ерунда ,если я сам пишу слово в файле прога находит,а другое точно такое же слово невидит

Kaban (2002-06-07 13:21:00) [1]
А еще можно использовать Memo1.Lines.Text

777 (2002-06-07 13:17:00) [2]
вот поиск, куда добавлять найденые слова и что вообще с ними делать - на твое усмотрение:)
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Memo1.Lines.LoadFromFile("c:\temp\1979.txt"); for i:=0 to memo1.Lines.Count-1 do begin if StrPos(PChar(memo1.lines[i]),PChar("златоуст"))<>nil then //dosomething end; end;

для пущей надежности можно еще сделать UpperCase.

Kaban (2002-06-07 13:13:00) [3]
Еще раз что тебе нужно?
Найти все слова в тексте?

Игорь Шевченко (2002-06-07 13:12:00) [4]
PETR © (07.06.02 13:11)

Program Files\Borland\Delphi\Demos\*.* с подкаталогами

PETR (2002-06-07 13:11:00) [5]
люди я вообще не давно стал изучать Delphi поэтому как мог так и попытался сделать ,с циклом (for)какая-то проблема возникла !

Kaban (2002-06-07 13:06:00) [6]
я конечно не особо вникал, но таймер то тебе зачем

PETR (2002-06-07 13:04:00) [7]
Kaban

Почему ?

Kaban (2002-06-07 13:03:00) [8]
да... как все запущено

PETR (2002-06-07 12:58:00) [9]
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Memo1.Lines.LoadFromFile("c:\temp\1979.txt");

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
q:=q+1;
a:=form1.Memo1.Lines.Strings[q];
for w:=1 to 8 do
begin
s:=s+a[w+7];
end;
label1.Caption:=inttostr(q);
label2.Caption:="*"+s+"*";

if s="златоуст" then
begin
beep;
e:=e+1;
form1.Memo2.Lines.Insert(e,a);
form1.Memo1.Lines.Delete(q);
label3.Caption:="

777 (2002-06-07 12:47:00) [10]
у меня было нечто подобное, так оказалось что буква "С" была введена нерусская. Может у вас тоже что-то в этом роде?

Игорь Шевченко (2002-06-07 12:20:00) [11]
Ну а код где, который не работает ?

Внук (2002-06-07 12:19:00) [12]
Не... Я точно не телепат ... :(

PETR (2002-06-07 12:17:00) [13]
текстовый файл, искомое слово (златоуст)нужно узнать сколько слов (златоуст)в текстовом файле !!!

Внук (2002-06-07 12:16:00) [14]
Вопрос из ряда: я написал программу, а она не работает. Что делать?
По-конкретнее бы. Как читаете, как пишете, кусок кода... Кодировку проверьте :-)

AFROLOV (2002-06-07 12:14:00) [15]
А поподробнее можно? И вообще, код в студию!

PETR (2002-06-07 12:09:00) [16]
неужели не кто незнает

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »