Помогите с StringGrid'ом

[W0LF]

Я пишу icq-бот, не могу разобраться с самым главным....

Надо сделать проверку: если присланое сообщение есть в списке StringGrid'а (в 2 колонке, тоесть !help, !стоп и другие которые будут введены) то ответить сообщением из той же строки следующей колонки...
Тоесть если прислали "!help" - ответить "Помошь......."

[Stilet]

Ну предположим так:

s - строка которая пришла
i:=stringgrid.Cols[1].Indexof(s);
if i<>-1 then
 i - строка с найденной командой.

[W0LF]

Я новичок в этом деле, по этому прошу обьяснить на примере. Вот процедура приема сообщения:

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
  ICQ: Cardinal;
begin
  icq := StrToInt(UIN);
  Memo1.Lines.Add(UIN + ': ' + Msg);
  if Msg=stringgrid1.Cells[1,1] then ICQClient1.SendMessage(icq, stringgrid1.Cells[2,1]);
end;

если текст из первой ячейки такойже как и принятый - отправлеят текст с соседней...

s - строка которая пришла
i:=stringgrid.Cols[1].Indexof(s);
if i<>-1 then
i - строка с найденной командой.

А как это использовать в таком случаи? Или можно както по-другому...

[ОДИНОЧЕСТВО В СЕТИ]

а не проще БД использовать и sql!

[W0LF]

Говорю, я начинающий.. использую что знаю. А в bd вообще "ноль" полный.

[Kotofff]

Может так ?

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
  ICQ: Cardinal;
  i: integer;// переменная для цикла по строкам
begin
  icq := StrToInt(UIN);
  Memo1.Lines.Add(UIN + ': ' + Msg); // я не знаю зачем тут это ... 
  for i:=1 to StringGrid1.RowCount do
    if Msg=StringGrid1.Cells[1,i] then // если сообщение совпадает со значением в первом столбце ...
      ICQClient1.SendMessage(icq, StringGrid1.Cells[2,i]);// ... то отсылаем со второго столбца
end;

[W0LF]

Kotofff, благодарю тебя!)) Это то что надо... капец, про цикл думал, но не мог понять как его сделать, оказалось всё очень и очень проста...
Еще раз спс тебе...

Еще вопрос: как сохранить текст каждой ячейки 1 и 2 или добавить в переменную text и text2 и при создании формы из файла опять ячейки заполнить?
ЗЫ: прошу при возможности полный листинг процедуры

[psycho-coder]

Пользуйся

// Сохранение
procedure TForm1.Button1Click(Sender: TObject);
var
  botList: TStringList;
  i: Integer;
begin
  botList := TStringList.Create;
  botList.NameValueSeparator := '='; // Можно другой сивол. Например #0

  for i := 1 to StringGrid1.RowCount do
  begin
    botList.Values['1'+IntToStr(i)] := StringGrid1.Cells[1, i];
    botList.Values['2'+IntToStr(i)] := StringGrid1.Cells[2, i];
  end;

  // Что бы знать сколько записей, при загрузке файла
  botList.Values['count'] := IntToStr(StringGrid1.RowCount - 1);

  try
    botList.SaveToFile('botlist.txt'); // Сохраняем
  except
    MessageBox(Self.Handle, 'Невозможно сохранить "botlist.txt"', 'Ошибка!', MB_OK);
    Exit;
  end;
  botList.Free; // Освобождаем
end;

// Загрузка
procedure TForm1.Button2Click(Sender: TObject);
var
  botList: TStringList;
  i, count: Integer;
begin
  botList := TStringList.Create;
  botList.NameValueSeparator := '='; // Можно другой сивол. Например #0
  try
    // Загрузка. Путь можно любой главное что бы он был
    // верный при загрузке и сохранении  
    botList.LoadFromFile('botlist.txt');
  except
    // Месага об ошибке. Можно что то свое
    MessageBox(Self.Handle, 'Невозможно загрузить "botlist.txt"', 'Ошибка!', MB_OK);
    Exit;
  end;
  count := StrToInt(botList.Values['count']);
  StringGrid1.RowCount := count + 1;

  for i := 1 to count do
  begin
    StringGrid1.Cells[1, i] := botList.Values['1'+IntToStr(i)];
    StringGrid1.Cells[2, i] := botList.Values['2'+IntToStr(i)];
  end;

  botList.Free;
end;

[W0LF]

+ вопрос, это надеюсь последний:
Надо что бы при клике на определенную ячейку открывалось окно Form3 с названием этой ячейки и которое имело мемо, всмысле в мемо текст ячейки. (по тому что, в ячейку нельзя ввести крупный текст с ентером и т.д.). Форма должна иметь еще кнопку сохранения текста в ячейку из которой загрузился текст (всмысле редактировать ее). Прошу помочь мне в этом, для меня, не легком деле...
Вот примерно так:


PS: извините за мой напор

[psycho-coder]

Вот рас.

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
  _left, _top: Integer;
begin
  _left := StringGrid1.Selection.Left; // Выделенная ячейка слева
  _top := StringGrid1.Selection.Top; // Выделенная ячейка сверху
  if (_left < 1) and (_top < 1) then Exit; // Если они меньше 1 то это не наше

  // Загружаем в Memo1 текст из выделенной ячейки. По моему тут лучше использовать TEdit
  Form3.Memo1.Text := StringGrid1.Cells[_left, _top];
  Form3.Caption := 'Ячейка['+IntToStr(_left)+','+IntToStr(_top)+']'; // Заголовок
  Form3.ShowModal; // Отображаем как модальное окно
  StringGrid1.Cells[_left, _top] := Form3.Memo1.Text; // Загружаем в ячейку текст из Memo1
end;

Вот два.

unit Unit3
...
procedure TForm3.Button1Click(Sender: TObject);
begin
  Close;
end;