One thing you might consider is typeing the parameter as an ancestor class
both have in common: TPersistent. With a parameter typed as TPersistent, an
object of either TMemoField or TStrings type may be passed. However, this
requires special handling within the function. Depending on what you re
doing in the function, you may need to use the Is operator to determine the
actual class of the passed object (TMemoField or TStrings) and then execute
different code based on that evaluation.

  procedure PrintStringList(Items: TPersistent);
  var
    SL: TStringList;
  begin
    SL := TStringList.Create;
    try
      if (Items is TMemoField) then
        SL.Assign(TMemoField(Items))
      else
        SL.Assign(TStringList(Items));
       {From here proceed with your normal printing code,
        except using SL instead of using Items directly.}
       ...
    finally
      SL.Free;
    end;
  end;

Try "PrintStringList(MyMemoField.Lines);"

Lines is a TStringList as well as the one you used in your workaround.
Thus, it should work that way.

Roland Salzburger heeft geschreven in bericht
<36B2F33A.8F19A...@salzburger.de>...
R.:

Try "PrintStringList(MyMemoField.Lines);"

Lines is a TStringList as well as the one you used in your workaround.
Thus, it should work that way.

I tried it, but AsString returns a string type; this is not compatible with.
So it will also give a compile time error.
TStringList.

Bye,
R. Mittendorff
the Netherlands

Michael Burton heeft geschreven in bericht
<36b5c31a.1237...@iixnews.iix.com>...

List := TStringList.Create;
List.Text := MyMemoField.AsString;
PrintStringList(List);
List.Free;

Another tip:

function PrintStringList(AText: string): Boolean;
var
  List: TStringList;
begin
  Result := False;
  List := TStringList.Create;
  try
    List.Text := AText;
    {Do the printing stuff, like you do with PrintStringList now, or}
    Result := {ok or not}
  finally
    List.Free;
  end;
end;

Now it is easy:

if PrintStringList(MyMemoField.AsString) then...
if PrintStringList(MyOtherStringList.Text) then...
if PrintStringList(MyRichEdit.Lines.Text) then...
if PrintStringList(MyMemo.Lines.Text) then...

Hope that will help.
Christian Wallner