Delphi работа со строками

[Balloonatic]

Задание - найти в тексте первое вхождение слова с заданным окончанием. Нашла стандартную функцию AnsiEndsText, но компилятор выдает ошибку - необъявленный идентификатор. Подскажите, пожалуйста, в чем может быть причина?

[Alex11223]

По-моему эта функция тут не сильно поможет.

Простой вариант: разделить строку на слова, используя массив (либо смотреть только на 'a'..'z', 'A'..'Z' и когда попадется что-то другое с помощью флага (boolean) +1 к индексу массива, либо использовать множество (set of...) разделителей слов аналогично) и потом в массиве искать это слово.

Более компактный вариант: в цикле проходим строку и ищем это слово, не забывая отделять слова, как в 1 варианте, но вместо массива используем 1 переменную типа string.

[Balloonatic]

Ну, изначально я эту функцию и писала вручную. Прога не работает в двух случаях: если задать окончание длиной 1 символ и при этом в первом слове, оканчивающемся на эту букву, уже есть эта буква - то есть написать, например, "рама" и окончанием задать букву А; и второй случай - если в тексте встречаются слова длиной меньше, чем заданное окончание.

Вот код:

var  s2:string;
var tmp: string;
var s1: TStringList;
var i, j, position: Integer;
begin
s1:=TStringList.Create;
s2:=edt2.Text;
try
  s1.Delimiter:=' ';
  s1.DelimitedText:=Edit1.Text;
  for i:=s1.Count-1 downto 0 do
    begin
    tmp:=s1[i];
    position:=Pos(s2, tmp);
    if position-1= length(tmp)-length(s2) then
      Label4.Caption:=tmp;
    end;
finally
s1.Free;
end;
end;
end.

[Alex11223]

for i:=s1.Count-1 downto 0 do
begin
tmp:=s1[i];
position:=Pos(s2, tmp);
if position-1= length(tmp)-length(s2) then
Label4.Caption:=tmp;
end;

Эм...Что-то не очень понял, что вы тут делаете. Я бы как-то так делал (для 1 строки, т.е. это надо немного переделать для каждой строки СтрингЛиста):
upd: не заметил вначале, что надо окончание искать, поэтому не очень красиво получилось, но должно работать)

var f:boolean;
razd: set of char;
...
razd := [',', '.', '!', '?', ' ', ':'];
okonchanie:='abcdef'; f:=false;
for i:=1 to length(str) do
begin
   if str[i] not in razd then 
     bufstr:=bufstr+str[i];
   else
     if length(buf) => length(okonchanie) then
     begin
        f:=true;
        for j:=length(okonchanie) downto 1 do
           if bufstr[j] <> okonchanie[j] then begin f:=false; break; end;
        if (f) then //вывод bufstr
        bufstr:='';
     end;
     else bufstr:='';
   if(f) then break;
end;

[Balloonatic]

должно, а не работает...ну все равно спасибо, буду думать дальше

[GetMax]

Balloonatic, смотрите сюда

Var
  st,sl:String;
  okonch:String[5];
  i,j,dl,dl1:Byte;
  Found:Boolean;
begin
  Write('Stroka ');
  Readln(St);
  Write('Okonchnie ');
  Readln(Okonch);
  For i:=1 to Length(St) do
  Begin
    If (St[i] <> ' ') and (i <= Length(St)) then sl:=Sl+St[i];
    If (St[i] = ' ') or (i = Length(St)) then
    Begin
      If Sl <> '' then
      Begin
        dl:=Length(Sl);
        dl1:=Length(Okonch);
        Found:=False;
        For j:=dl1 downto 1 do
        If sl[dl] = Okonch[j] then
        Begin
          Found:=True;
          dec(dl)
        End
        Else
        Begin
          Found:=False;
          sl:='';
          Break
        End;
      End;
    End;
    If Found then Break;
  End;
  If sl <> '' then Writeln(Sl)
              else Writeln('Not Found');
  Readln
End.

[Alex11223]

должно, а не работает

Видимо из-за того, что у меня был to в последнем цикле вместо downto.