Привет народ !!!

← →
PETR © (2002-06-07 12:03) [0]

Такая вот проблема !

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

← →
PETR © (2002-06-07 12:09) [1]

неужели не кто незнает

← →
AFROLOV © (2002-06-07 12:14) [2]

А поподробнее можно? И вообще, код в студию!

← →
Внук © (2002-06-07 12:16) [3]

Вопрос из ряда: я написал программу, а она не работает. Что делать?
По-конкретнее бы. Как читаете, как пишете, кусок кода... Кодировку проверьте :-)

← →
PETR © (2002-06-07 12:17) [4]

текстовый файл, искомое слово (златоуст)нужно узнать сколько слов (златоуст)в текстовом файле !!!

← →
Внук © (2002-06-07 12:19) [5]

Не... Я точно не телепат ... :(

← →
Игорь Шевченко © (2002-06-07 12:20) [6]

Ну а код где, который не работает ?

← →
777 © (2002-06-07 12:47) [7]

у меня было нечто подобное, так оказалось что буква "С" была введена нерусская. Может у вас тоже что-то в этом роде?

← →
PETR © (2002-06-07 12:58) [8]

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:="

← →
Kaban (2002-06-07 13:03) [9]

да... как все запущено

← →
PETR © (2002-06-07 13:04) [10]

Kaban

Почему ?

← →
Kaban (2002-06-07 13:06) [11]

я конечно не особо вникал, но таймер то тебе зачем

люди я вообще не давно стал изучать Delphi поэтому как мог так и попытался сделать ,с циклом (for)какая-то проблема возникла !

← →
Kaban (2002-06-07 13:13) [14]

Еще раз что тебе нужно?
Найти все слова в тексте?

вот поиск, куда добавлять найденые слова и что вообще с ними делать - на твое усмотрение:)
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:21) [16]

А еще можно использовать Memo1.Lines.Text

Привет народ !!! Найти похожие ветки