Seitenvergleich

SAP      := TccSap.Create(Client, ApplicationServer, User, Password, SystemNumber, Language);
Request  := TccSapFunctionData.Create;
Response := TccSapFunctionData.Create;
SapTable := TccSapTable.Create;
try
  if SAP.Connection.Test then
  begin
    Request.Parameters.Items['NAME'] := 'Test';
    Request.Parameters.Items['ROWS'] := 100;
 
    Sap.Functions.Execute('/CLARC/EXAMPLEFUBA',Request,Response);    
    TableData := Response.Tables['EXAMPLETABLE'];
  end;
finally
  Request.Free;
  Response.Free;
  SapTable.Free;
  SAP.Free;
end;