急，急，关于备注字段（我给100分）

Question

var
  Memo:TStrings;
begin
  Memo:=TStrings(Table1.FieldByName('备注'));
  然后就可以对Memo的行进行处理了.
End;

Answer 1

var
  i: integer;
  strlst: TStringList;
begin
  strlst := TStringList.Create;
  try
    strlst.Text := Query1.FieldByName( 'Memo' ).AsString;
    for i := 0 to strlst.Count - 1 do
    begin
      //ShowMessage( strlst[i] );
    end;
  finally
    strlst.Free;
  end;
end;