如何读取TEXT字段的首行字符串？

Question

想从SQL SERVER的某TEXT字段中读取首行的字符串（如存在），不知如何操作，特求教
！！

Answer 1

Memo1.lines.text := Query1.Fieldbyname('yourFieldName').asString;
showmessage(Memo1.lines[0]);   // first line.

Answer 2

to:Wnyu
  那不是要建立一个Memo控件，有没有不建控件的办法？

Answer 3

用TStringList
var
  T : TStringList;
begin
  T := TStringList.Create;
  Try
    T.text := Query1.Fieldbyname('yourFieldName').asString;
    showmessage(T[0]);   // first line.
  Finally
    T.Free;
  end;end;