Показать сообщение отдельно
  #4  
Старый 31.03.2009, 19:58
Аватар для Karsh
Karsh Karsh вне форума
Активный
 
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию

Немного поясню то, что говорил lmikle. Вот только он говорил про TMemo, а я поясню для TStrings (хотя разница небольшая, т.к. TMemo использует TStrings).
Если нужно получить весть текст, то используйте Strings.Text.
Если только одну строку, то Strings.Strings[i], где i - номер строки (не забываем, что первая строка идет под номером 0).
Пример с циклом, где к переменной Msg плюсуются строки из Strings:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Strings: TStrings;
  i: Integer;
  Msg: string;
begin
  Strings:= TStringList.Create;
  try
    // указываем текст в Strings, например Strings.LoadFromFile('ss.txt');
    // а далее идет код:
    for i:= 0 to Strings.Count - 1 do
      Msg:= Msg + #13#10 + Strings.Strings[i];
  finally
    Strings.Free;
  end;
end;
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
Ответить с цитированием