Memo1

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
 var
  sl: TStrings;
begin
  try
     sl := TStringList.Create;
     sl.Delimiter := '*';
     sl.clear := '<>'; // so ????    
     sl.DelimitedText := FormReporting.Report.Cells[7,FormReporting.Report.Row];
     Memo1.Lines.Assign( sl);
  finally
    sl.free;
  end;
end;