Цитата:
|
Сообщение от 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); |
Спасибо большое за помощь! Разобрался, как нужно сделать. Завтра пойду сдавать
