[fufic]

Как сделать в программе чтобы находилось слово в списке по последней букве другого слова в этом же списке.

[kast2k]

Код:

procedure FindWords(posl_bukva:string);
var
temp_word:string;
i:integer;
begin
for i:=0 to stringlist.count-1 do
  begin
    temp_word=stringlist.strings[i];
    if temp_word[1]=posl_bukva then
      listbox1.items.add(temp_word)
  end;
end;

[fufic]

Ну чтож, спасибо

[fufic]

А как еще сделать чтобы проверялось если были уже использованные слова.

[kast2k]

Код:

function IsUsedWord(iword:string):boolean;
var
i:integer;
begin
result:=false;
for i:= to listbox1.items.count-1 do
  begin
    if iword=listbox1.items.strings[i] then
      begin
        result:=true;
        break;
      end;
  end;
end;

[fufic]

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

Код:

function IsUsedWord(iword:string):boolean;
var
i:integer;
begin
result:=false;
for i:= to listbox1.items.count-1 do
  begin
    if iword=listbox1.items.strings[i] then
      begin
        result:=true;
        break;
      end;
  end;
end;

Выдает ошибку Undeclared identifier: 'result'-Необъявленный идентификатор: "результат"

[Pyro]

это в паскале нет result, а не ошибка в коде

[fufic]

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

это в паскале нет result, а не ошибка в коде

И что делать.

[Pyro]

зависит от того какие варианты действий уже пробовали, а какие ещё нет

[fufic]

Спасибо, все уже сделал