Доброго вечера, форумчане. Возникла проблема с частью задачи:
"Дан файл, содержащий какой-то текст. Найти все слова, которые заканчиваются на заданную букву (буква вводится). Результат вывести в виде таблицы из одного столбца."
Начал потихоньку без вывода в таблицу, все бы ничего, но при выводе нужного слова, возникает проблема, когда в нужном слове заданная буква, кроме последней встречается еще где то. Буду рад помощи в решении сей задачи. Заранее спасибо.
вот то что успел написать:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | procedure TForm1.Button2Click(Sender: TObject);
var i,m,z,n:integer;
s,s1,p: string;
begin
s2:=edit1.text;
s1:='';
m:=0;
Z:=0;
s:=memo1.lines.text;
n:=length(s);
for i:=1 to n do
begin
if (s[i]<>' ')then
s1:=s1+s[i]
else s1:='';
m:=length(s1);
p:=copy(s1,m,1);
z:=pos(p,s);
if (s2=p)and(s[z+1]=' ') then
begin
showmessage(s1);
delete(s,z,1);
z:=0;
s1:='';
end;
if (s2=p) and (s[z+1]<>' ') then delete(s,z,1);
end;
end;
end.
|
lmikle: Пользуемся тегами!!!
15.12.2010, 19:14
Проблемка при работе с текстом
Линейный вид
