Загрузка текстовика,сравнение с моим условием

[Kapitan4ik]

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

procedure TForm1.Button1Click(Sender: TObject);
var
 st:string;
begin
st:='123456789';
Accounts:=TstringList.Create;
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
Accounts.Clear;
Accounts.LoadFromFile(OpenDialog1.FileName);
Memo1.Text := Accounts.Text;
end;
if Memo1.Text = st then
showmessage('Accepted');
end;

Что я пытался добиться:
Загрузка текста из текстовика
Вывод содержания в Memo1
Сравнение Memo1.Text и моей переменной.
Попытка вывода сообщения.


Но соль в том, что сообщение не выводится. Текстовик грузится, содержание идет в Мемо, но сообщения нету.
Помогите найти ошибочку.
Заранее спасибо

[Прик]

//Memo1.Text := Accounts.Text;
Memo1.Lines.Text := Accounts.Text; //только зачем дублировать, если можно сравнить с Accounts.Text?
//или загрузить сразу в мемо:
//Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

//if Memo1.Text = st then
if Memo1.Lines.Text = st then

[Kapitan4ik]

вот что получилось, но всёравно при открытии текстовика с нужными строками, ничего не происходит

procedure TForm1.Button1Click(Sender: TObject);
var
 st:string;
begin
st:='123456789';
Accounts:=TstringList.Create;
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
Accounts.Clear;
Accounts.LoadFromFile(OpenDialog1.FileName);
Memo1.Lines.Text := Accounts.Text;
end;
if Memo1.Lines.Text = st then
begin
showmessage('Accepted');
end;
end;

[Прик]

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

но всёравно при открытии текстовика с нужными строками, ничего не происходит

Это "ничего", видимо, связано с отсутствием сообщения?
Если это так, то причина только одна: условие

 if Memo1.Lines.Text = st then

не выполняется

[Kapitan4ik]

так из за чего оно не может выполнятся?)

[3D Hunter]

Рабочий код:

procedure TForm2.Button1Click(Sender: TObject);
var
  st: String;
  Accounts:TStringList;
begin
  try
    st := '123456789';
    Accounts := TStringList.Create;
    if OpenDialog1.Execute then
    begin
      Accounts.LoadFromFile(OpenDialog1.FileName);
      Memo1.Lines.Text := Accounts.Text;
      if StringReplace(Memo1.Lines.Text,#13#10,'',[rfReplaceAll]) = st then
      begin
        showmessage('Accepted');
      end;
    end;
  finally
    FreeAndNil(Accounts);
  end;
end;

Смысл в том, что при присвоении текста классу TStrings и всем его наследникам автоматом добавляется в конец завершающий символ-разделитель строк. По умолчанию это пара символов #13#10. Вот поэтому мы и исключаем их функцией StringReplace, заменяя на пустые символы (удаляя из текста).
Вообще в таком случае правильнее организовать поиск по циклу совпадения нужной строки, например:

...
      for i:=0 to Memo1.Lines.Count-1 do
        if Memo1.Lines[i]=st then
        begin
          showmessage('Accepted');
          Break;
        end;
...
...

[mihali4]

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

Текстовик грузится, содержание идет в Мемо, но сообщения нету.

Чтобы было понятнее, оформил не кодом (код не дает подкрасить).

if Memo1.Lines.Text = st then
showmessage('Accepted') else
showmessage('Not Accepted');

[Kapitan4ik]

огромное спасибо всем, всё работает) Офайте темку