[freeprog]

Есть задание:

Код:

Заданий текстовий файл F, рядок букв S. Отримати всі рядки файлу F, що містить рядок S навпаки (Наприклад: кіт - тік).

Промучался день, так и не сделал. Подтолкните на мысль. Буду очень благодарен.

[aleksnine]

Не знаю правильно ли я понял задание , так как в украинский плохо понимаю .

Вот так можно узнать строки , в которых содержится слово написанное наоборот и вывести их например в Tmemo.

Код:

Procedure naoborot(Filename,Stroka:string;Memo:Tmemo);
var
f:Tstringlist;
i:integer;
s:String;
begin
memo.Clear;
for i:=length(stroka) downto 1 do
s:=s+stroka[i]; // искомое слово в обратном порядке
memo.Lines.Add('Ищем слово '+ s)    ;
s:=ansilowercase(s); // приводим слово к нижнему регистру
f:=Tstringlist.Create;
f.LoadFromFile(filename);
try
for i:=0 to f.Count-1 do begin    // ищем
if ansilowercase(f.Strings[i])=s then
memo.Lines.Add('Слово содержится в строке номер ' + inttostr(i)) ;
end;
finally
f.Free;
end;
end;

Ну используем вот так -

Код:

naoborot('C:\1.txt','кит',memo1);

[freeprog]

уточнил как правильно делать.

есть кнопка на тулбаре и ричэдит. нужно написать программу(процедуру), которая будет искать заданное слово (которое по возможности нужно реализовать так, чтобы можно было ввести в этот же ричэдит) в заданном текстовом файле. Вывести все строки, которые содержат слово наоборот в ричэдит.

[freeprog]

помогите пожалуйста, очень прошу

[freeprog]

Сообщение от aleksnine

Не знаю правильно ли я понял задание , так как в украинский плохо понимаю .

Вот так можно узнать строки , в которых содержится слово написанное наоборот и вывести их например в Tmemo.

Код:

Procedure naoborot(Filename,Stroka:string;Memo:Tmemo);
var
f:Tstringlist;
i:integer;
s:String;
begin
memo.Clear;
for i:=length(stroka) downto 1 do
s:=s+stroka[i]; // искомое слово в обратном порядке
memo.Lines.Add('Ищем слово '+ s)    ;
s:=ansilowercase(s); // приводим слово к нижнему регистру
f:=Tstringlist.Create;
f.LoadFromFile(filename);
try
for i:=0 to f.Count-1 do begin    // ищем
if ansilowercase(f.Strings[i])=s then
memo.Lines.Add('Слово содержится в строке номер ' + inttostr(i)) ;
end;
finally
f.Free;
end;
end;

Ну используем вот так -

Код:

naoborot('C:\1.txt','кит',memo1);

Спасибо большое за помощь! Разобрался, как нужно сделать. Завтра пойду сдавать