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

[Prowler]

Лучше и проще испльзовать TStringList.

[CMP]

Помогите пожалуйста с поиском:

while not EOF(f) do
begin
readln(f, buf);
n2:=Length(shortStr); //длина слова заносится в n2
Source2 :=buf;
Target2 := Copy(Source2,1,1); //копируем первую букву у выводимых слов
Memo1.Lines.Add(buf); //сюда выводятся все слова из файла

как найти слово ,удовлетворяющие условию target=target2 ? (последняя буква слова ,введённая игроком=первой букве слова из файла)

По идее нужно проверять каждое слово в memo1 до пробела, если слово не удовлетворило условию поиска, то поиск идёт дальше, а если слово удовлетворяет условию поиска, то оно выводится в label или ещё куда-нибудь. Вот с этим проблемы.

[SuperVisor]

Вспомни, что я тебе говорил про массив слов...
Можно создать обычный двууровневый массив и заполнять его словами что-то вроде:

type Words = set of strings[20];
var
  Mas: array [1..32] of Words;

Но если ты все-таки настаиваешь на чтении из файла напрямую, то следует создать одну переменную (внутрипроцедурную) типа Char и делать таким образом:

FirstChar:=Edit1.text[length(Edit1.text)]; //получаем последний символ введенного слова
if (((FirstChar>='а') and (FirstChar<='я')) or (FirstChar=#184)) then FirstChar=chr(ord(FirstChar)-32); //подобие UpperCase - если символ прописной, преобразуем в заглавный
For i:= 0 to Memo1.Lines.Count-1 do
 begin
  S:=Memo1.Lines.Strings[i];
  if FirstChar=S[1] then //Мы проверили совпадение символов первой и последней букв в искомых словах

Будет работать, как часы. Дальше дописываешь свой код и все!

[CMP]

Спасибо! Только выскакивает 2 ошибки ,показывает на условие if FirstChar=S[1] then .Сначала процесс останавливается программой, затем запускаю вновь и снова выдаётся ошибка.Но город на нужную букву всё же выводится))
Вот как я оформил:

procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
fName:string[80];
buf:string[80];
       i:integer;
       s : string;
FirstChar:char;
begin
 timer1.Enabled:=false;
          fname:='D:\Program Files\Borland\Delphi7\Projects\Kursovik\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);
          Memo1.Lines.Add(buf);
          end;
          CloseFile(f);

   FirstChar:=Edit1.text[length(Edit1.text)]; //получаем последний символ введенного слова
if (((FirstChar>='а') and (FirstChar<='я')) or (FirstChar=#184)) then FirstChar:=chr(ord(FirstChar)-32); //подобие UpperCase - если символ прописной, преобразуем в заглавный
For i:= 0 to Memo1.Lines.Count-1 do
 begin
  S:=Memo1.Lines.Strings[i];
   if FirstChar=S[1] then //Мы проверили совпадение символов первой и последней букв в искомых словах
   label2.caption:=S;//Это вместо memo1, туда выводится нужное слово
      end;
    end;
end.

В чём ошибка?

[SuperVisor]

Напиши, какую ошибку выдает компилятор.
И не забудь создать процедуру проверки на повторение и существование в базе.

[CMP]

http://programmersforum.ru/attachmen...1&d=1173964707 первая ошибка.

http://programmersforum.ru/attachmen...1&d=1173964743 вторая.

Процедуру проверки почти сделал.

[CMP]

Люди, помощь ещё требуется!

[SuperVisor]

Так.... Довольно-таки интересно, потому что компилятор показывает на обращение к недоступной ему величине и в синтаксисе ошибок нет. Ты уверен, что он не записывает в переменную S нулевую строку?
Кстати, у Memo.Lines есть процедура чтения из файла, советую использовать именно ее.

[SuperVisor]

Motivation: ANR.
Тема закрыта в рамках "Рейда против некрофилии"