Реализовать игру в Города

[CMP]

Привет! Помогите пожалуйста написать программу на Delfi, основанную на принципе игры в города.
Игрок ведёт игру с компьютером, у которого уже имеется база из 20 названий городов, игрок вводит своё название города, а компьютер выводит название города, которое совпадает с последней буквой города, названного игроком.Города не могут повторяться несколько раз за игру.
В общем аналогом может послужить игра в слова, только я её нигде не нашёл. Если Вам не сложно, то напишите пожалуйста программный код.Спасибо!

[Alar]

во-первых, в delphi
во-вторых, неужели самому не интересно сделать?!

[CMP]

Честно говоря интересно, но я незнаю как определить последний символ в слове и что бы компьютер выводил по последней букве.если распишите эту часть ,буду очень признателен.

[Alar]

http://delphibasics.ru/Length.php - колличество символов

http://delphibasics.ru/Copy.php - возвращает часть слова.

Этого должно хватить.

[SuperVisor]

По сути - ничего сложного. Только возникает вопрос: пользователь вводит слова которые есть в базе или нет? Если нет, то получится как-то неправильно, ведь если я в введу на слово "Кострома" слово "Ад" и программа с полной уверенностью существования такого города выдаст мне "Днепропетровск"... Будет глупо смотрется, советую сразу делать упор на этом аспекте и расширить базу хотябы до 100 самых крупных и/или самых известных городов (России - так будет проще).
1. Очищаем TEdit и предлагаем пользователю ввести его слово, по нажатии кнопки копируем слово в строку-буфер.
2. Сравниваем слово с базой. Есть - заносим в массив использовавшихся слов (можно использовать нередактируемый TMemo и заносить и искать слова в нем). Нет - выдаем сообщение пользователю, что такого слова в базе нет (Со всеми вопросами обращаться к Васе Пупкину, великому граматею, для пополнения базы ) и переходим к п.1
3. Смотрим последний символ строки-буфера и ищем слово начинающееся на данный символ в базе (не забываем про строчные и заглавные буквы). Нашли - проверяем, не присутствовало ли оно ранее. Имело место - ищем дальше, не находим ничего более - пользователь выиграл. Не было слова - пишем, переходим к п.1.
Алгоритм есть!

[CMP]

Алгоритм был такой же у меня ,а вот в код как его.

как высчитать именно последнюю букву в любом введённом слове?

[CMP]

всё .понял как

[Alar]

можно так - a:=copy(slovo,length(slovo),1);

[CMP]

да я проще сделал Target := Copy(Source,n,n);

[CMP]

Помогите пожалуйста сделать вывод из файла слова ,удовлетворяющего условию.Возможноли такое?
я делал так:
shortStr :=Edit1.text;
ShowMessage('Длина shortStr = '+IntToStr(Length(shortStr)));
n:=Length(shortStr); //длина слова , вводимого игроком заносится в n
Source :=Edit1.text;
Target := Copy(Source,n,n); //копируется последний символ в слове вводимого игроком
ShowMessage('Target : '+Target);

fname:='D:\Program Files\Borland\Delphi7\Projects\Kurs ovik\sity.txt';
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
begin
MessageDlg('Нет доступа к ' +fName, mtError, [mbOK],0);
exit;
end;

//вывод из файла
while not EOF(f) do
begin
readln(f, buf);
shortStr2 :=buf;
ShowMessage('Длина shortStr2 = '+IntToStr(Length(shortStr2)));
n2:=Length(shortstr2); //длина слова заносится в n
Source :=buf;
Target2 := Copy(Source,1,1);//копирнули первый символ слова в файле
ShowMessage('Target2 : '+Target2);
if target=target2 then //если последний символ вводимого слова равен первому символу слова из файла ,то:
target3:=copy(Source,1,n);//копируем всё слово ,если оно удовлетворяет условию
ShowMessage('Target3 : '+Target3);
label2.caption:=target3;//вставляем слово из файла
end;
CloseFile(f);
end;

Но проблема в том что if не работает .а первый символ слова из файла я нахожу, потом копируется всё слово и оно вставляется в label2 ,но выводится именно весь файл, а не только нужное слово.
В общем нужно вывести определённое слово из файла.