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

[W0LF]

+Очень извеняюсь, но то был не последний мой вопрос...
С вводом Memo1 пришла новая проблема: текст который состоит из более чем одной строки не сохраняеться, всмысле сохраняеться только первая строка, что в данном случаи не позволительно, знаю что луче использовать Edit, ну так Edit тоже многострочный текст не поддерживает...
Как можно это исправить, ну или сделать сохранение каждой ячейки в отдельный файл и при создании Form1 загрузить все имеющиеся файлы из папки Data (например), которые имеют в имени координаты ячейки (например: 1,2.txt), при этом заполнив текстом из них те самые ячейки...

ЗЫ: еще раз ивиняюсь)

[psycho-coder]

Зачем изобретать велосипед?
Допиши этот код в Form3

 
unit Unit3;
...
public
    str: String;
...
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
begin
  // Удаление пустых строк
  while Memo1.Lines.Strings[Memo1.Lines.Count-1] = '' do
    Memo1.Lines.Delete(Memo1.Lines.Count-1);
  while Memo1.Lines.Strings[0] = '' do Memo1.Lines.Delete(0);

  // Склеивание нескольких строк в одну.
  for i := 0 to Memo1.Lines.Count - 1 do
    str := str + Memo1.Lines.Strings[i] + ' ';
end;

Хранить в каждом файле содержимое ячеек смысла нет. Все равно StringGrid не умеет отображать данные в несколько строк.

пс. Если есть еще вопросы, сразу все напиши!

[W0LF]

psycho-coder мне надо что бы отправлялся многострочный текст, даже и с путсыми строками, я знаю что StringGrid его не отображает, но мне надо что бы такой текст гдето хранился... может сделать один столбик с тексом (на который бот дожлен ответить) а при клике на него в Form3 в мемо ввести текст который бот и отправит... Не сохраняючи его в соседнюю строку, но получаеться всеравно надо сохранить его куда либо... Вот яи подумал что сохранить разные файлы, которые будут грузитья( ну не в ячейку, а в Memo например при дабл-клике на строку с !help(например), а одиночный клик будет изменять именно текст данной ячейки)... Знаю ужасно за умно, но мне очень надо что бы можно было вводить многострочный текст и на запрос отвечать именно им, а не одной строкой....

[psycho-coder]

Можно в строке, которая должна быть много строчной, добавить символ #0 - он будет определять конец строки, а при отправке сообщения (ответа бота), конвертировать строку в многострочное. Это на мой взгляд проще.
Если так тебя устроит то могу функцию написать. Если нет буду думать над твоим предложением

[W0LF]

Ну незнаю, если это проще будет томожно. Это типа: ввел в мемо текст, сохранил, но оно его сохраняет в одну строку? А при ответе ботом текст будет как оригинальный, с строками и т.д? Если так, буду благодарен за функцию ту...

[psycho-coder]

Да. Именно так

[psycho-coder]

Измени TForm3.FormClose к такому виду - форма с Memo

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
const
  endString: Char = #3;
begin
  while Memo1.Lines.Strings[Memo1.Lines.Count-1] = '' do
    Memo1.Lines.Delete(Memo1.Lines.Count-1);
  while Memo1.Lines.Strings[0] = '' do Memo1.Lines.Delete(0);

  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if i = Memo1.Lines.Count - 1 then
    begin  // Проверяем, если это последнее слово, то к нему разделитель не нужен
      str := str + Memo1.Lines.Strings[i];
      Exit;
    end;
    str := str + Memo1.Lines.Strings[i]+endString; // разделитель endString
  end;
end;

А вот функция перевода:

function ManyStr(Str: String): String;
var
  Len, i: Integer;
const
  controlChar: Char = #3; // Символ "Конца текста" в таблице ASCII
  replaceChars: String = #13+#10; // Обрыв строки и Перевод каретки (спецификация Windows)
begin
  Result := '';
  Len := Length(Str);

  // Если разделителя нет, значит это обычная строка
  if Pos(controlChar, Str) = 0 then
  begin
    Result := Str; // Возвращаем ее же
    Exit;
  end;

  // Копируем посимвольно
  for i := 1 to Len do
    if Str[i] = controlChar then // Если разделитель, то ...
    begin
      Result := Result + replaceChars; // ... берем строку до символа #3 и на его место вставляем символы #13+#10
      Continue; // и заново
    end
    else // Иначе просто копируем символ
      Result := Result + Str[i];  
end;

Использовать так

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; // Если они меньше 0 то это не наше

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

В общем при отправке сообщения ботом это будет примерно так (Pidgin Pascal)

  ICQSendMessage(ManyStr(StringGrid1.Cells[2, 2])); // пример.

на скрне пример

[Alter]

Можно заменить

function ManyStr(Str: String): String;
var
  Len, i: Integer;
const
  controlChar: Char = #3; // Символ "Конца текста" в таблице ASCII
  replaceChars: String = #13+#10; // Обрыв строки и Перевод каретки (спецификация Windows)
begin
  Result := '';
  Len := Length(Str);

  // Если разделителя нет, значит это обычная строка
  if Pos(controlChar, Str) = 0 then
  begin
    Result := Str; // Возвращаем ее же
    Exit;
  end;

  // Копируем посимвольно
  for i := 1 to Len do
    if Str[i] = controlChar then // Если разделитель, то ...
    begin
      Result := Result + replaceChars; // ... берем строку до символа #3 и на его место вставляем символы #13+#10
      Continue; // и заново
    end
    else // Иначе просто копируем символ
      Result := Result + Str[i];  
end;

одной строкой(S - будет к примеру входная строка)

 Form3.Memo1.Text := StringReplace(s, #3, #13#10, [rfReplaceAll, rfIgnoreCase]);

[W0LF]

извините, у меня нечего не выходит... (( постоянныйе ошибки + толком не могу понять куда его сувать).. отпишите плиз мне на аську и если можете обясните норм (uin: 4122177)

ругаеться на 2 строки psycho-coder'а: а именно на

->> str := str + Memo1.Lines.Strings[i];
Exit;
end;
->> str := str + Memo1.Lines.Strings[i]+endString;


([Error] Unit3.pas(55): '(' expected but ':=' found)

[Alter]

Изменил имеющийся текст тут и всё:

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; // Если они меньше 0 то это не наше

  // Загружаем в Memo1 текст из выделенной ячейки пропущенный через функцию.
  Form3.Memo1.Text := StringReplace(StringGrid1.Cells[_left, _top], #3, #13#10, [rfReplaceAll, rfIgnoreCase]);  
  Form3.Caption := 'Ячейка['+IntToStr(_left)+','+IntToStr(_top)+']'; // Заголовок
  Form3.ShowModal; // Отображаем как модкальное окно
  StringGrid1.Cells[_left, _top] := Form3.str; // Загружаем в ячейку текст
end;

ICQSendMessage(StringReplace(StringGrid1.Cells[2, 2], , #3, #13#10, [rfReplaceAll, rfIgnoreCase])); // пример.

Про пост #19 -> Var Str :String;