[DeadMan89]

Вообщем пишу бота, когда приходит запрос он должен из файла найти данную строку и отправить ее адресату, знак разделителя ; (пример: Вопрос1;Ответ1).Заранее спасибо!

[Rosenkrantz]

Из вопроса непонятно, в чем у вас затруднения: вы не знаете как найти строку в файле? или как ее разделить? или как отправить ответ?

[DeadMan89]

на самом деле у меня с файлами вообще труба, ничего мне не понятно,вообще ничего написать не могу

[Rosenkrantz]

Если файл текстовый и вам его нужно только читать, то можно его просто загрузить в TStringList и работать со списком строк:

Код:

var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  StrList.LoadFromFile(<имя_файла>);
  { Дальше работаете со строками файла.
    К ним можно обращаться по индексу: StrList[0], StrList[1] 
    или же StrList[i] и т.п.} 
  ...
  { В конце освобождаете объект списка }
  StrList.Free;
end;

[Rosenkrantz]

Разделить строку по точке с запятой можно так:

Код:

function DivStr(const SourceStr: String; var SubStr1, SubStr2: String): Boolean;
var
  i: Integer;
begin
  i := Pos(';', SourceStr);
  if i <> 0 then begin
    SubStr1 := Copy(SourceStr, 1, i - 1);  
    SubStr2 := Copy(SourceStr, i + 1, Length(SourceStr) - i);
  end;
  Result := i <> 0;
end;

После выполнения функции в SubStr1 будет часть строки до точки с запятой, в SubStr2 - часть строки после. Если точки с запятой в строке нет, то функция вернет False, иначе (если удалось разделить строку) - True.

[Brute Force]

А почему строку не с нулевого символа копируете, а с 1?
Вот здесь: SubStr1 := Copy(SourceStr, 1, i - 1);

[Rosenkrantz]

Сообщение от Brute Force

А почему строку не с нулевого символа копируете, а с 1?

Потому что это правильно.

[Oleg]

Сообщение от Brute Force

А почему строку не с нулевого символа копируете, а с 1?
Вот здесь: SubStr1 := Copy(SourceStr, 1, i - 1);

Если взглянуть на строку данного типа в памяти машины, то можно
увидеть, что в нулевом символе храниться длинна строки. Получается, что если прочитатьзначение нулевого символа SubStr1[0], то мы получим строку!!! Возможно так, но прямое обращение к нулевому символу не желательно, особенно не стоит его изменять.
Из книги "Библия Delphi"

[DeadMan89]

как эту процедуру переделать что бы она с файлом работала?и высылала ответ после ; , используя OpenDialog для открытия файла, заранее спасибо

Код:

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
Memo1.Lines.Add('('+(DateToStr(Date))+' ('+(TimeToStr(Time))+'))');
Memo1.Lines.Add(' '+UIN+': ' + msg);
Memo1.Lines.Add('');
Edit6.text:=(UIN);
if msg='Запрос' then
ICQClient1.SendMessage((StrToInt(UIN)),'Ответный символ');
end;

Admin: Теги и еще раз теги!

[Rosenkrantz]

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

Если взглянуть на строку данного типа в памяти машины, то можно
увидеть, что в нулевом символе храниться длинна строки. Получается, что если прочитатьзначение нулевого символа SubStr1[0], то мы получим строку!!! Возможно так, но прямое обращение к нулевому символу не желательно, особенно не стоит его изменять.
Из книги "Библия Delphi"

Это малость не о тех строках. AnsiString может содержать до 2Gb текста, такое значение, конечно, в 1 байте не поместится. Если есть желание разобраться со строками в Delphi, рекомендую хорошую статью Антона Григорьева "Тонкости работы со строками", там очень внятно изложено все.

[Rosenkrantz]

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

как эту процедуру переделать что бы она с файлом работала?и высылала ответ после ; , используя OpenDialog для открытия файла

Напишите словами чего вы хотите от процедуры. Из кода это неочевидно.

[DeadMan89]

вообщем я хочу что бы при запросе из файла искалось это слово и ответ передавался впеременную, а та высылалась на аську кто запрос давал

[Rosenkrantz]

Примерно так. Писал прямо здесь, могут быть синтаксические ошибки. Функцию DivStr я писал несколькими постами выше.
В GetAnswer передаете вопрос, возвращается ответ, если он есть в файле, если нет - возвращается пустая строка.

Код:

procedure GetAnswer(SQuestion: String): String;
var
  Dlg: TOpenDialog;
  FileStrings: TStringList;
  SFileName: String;

  function FindAnswer: String;
  var 
    i: Integer;
    S1, S2: String; 
  begin
    Result := '';
    for i := 0 to FileStrings.Count - 1 do
       if DivStr(FileStrings[i], S1, S2) then
         if AnsiCompareText(SQuestion, S1) = 0 then begin
           Result := S2;
           Exit; 
         end;
  end;

begin
  Result := '';

  Dlg := TOpenDialog.Create(Application);
  try
    if Dlg.Execute
      then SFileName := Dlg.FileName
      else SFileName := '';
  finally
    Dlg.Free;
  end;

  if Length(SFileName) = 0 then Exit;

  FileStrings := TStringList.Create;
  try
    FileStrings.LoadFromFile(SFileName);
    Result := FindAnswer;
  finally
    FileStrings.Free;
  end;
end;

[DeadMan89]

при компиляции пишет Procedure cannot have a result type

[The Shadow]

Поменяй слово procedure на function