Zapytanie wielokrotne i budowanie tekstu

//.....
query.sqlcommand:='INSERT into  tabAktywne (ob_Id,dok_NrPelny) VALUES (:ob_Id,:dok_NrPelny)';
query.parambyname('ob_id').asstring:=sqlResult.FieldByName('ob_Id').AsString;
//.......

function zapytanieInsert (zapytanie:string;ADOQuery1:TADOQuery):TADOQuery;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(zapytanie);
ADOQuery1.ExecSQL;
end;
......

zapytanieInsert.sqlcommand:='INSERT into  tabAktywne (ob_Id,dok_NrPelny) VALUES (:ob_Id,:dok_NrPelny)';
zapytanieInsert.parambyname('ob_id').asstring:=sqlResult.FieldByName('ob_Id').AsString;

[Warning] Unit1.pas(87): Return value of function 'zapytanieInsert' might be undefined
[Error] Unit1.pas(236): Not enough actual parameters
[Error] Unit1.pas(237): Not enough actual parameters
[Error] Unit1.pas(237): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

function StrArrayJoin(const StringArray : array of string; const Separator : string) : string;
var
  i : Integer;
begin
  Result := '';
  for i := low(StringArray) to high(StringArray) do
    Result := Result + StringArray[i] + Separator;

  Delete(Result, Length(Result), 1);
end;


sql := StrArrayJoin(['INSERT tabAktywne (ob_Id) VALUES (''',sqlResult.FieldByName('ob_Id').AsString,''');'], ' ');

sql := StrArrayJoin.sqlcommand:='INSERT into  tabAktywne (ob_Id,dok_NrPelny) VALUES (:ob_Id,:dok_NrPelny)';
sql := StrArrayJoin.parambyname('ob_id').asstring:=sqlResult.FieldByName('ob_Id').AsString;

[Error] Unit1.pas(229): Not enough actual parameters

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT into  tabAktywne (ob_Id,dok_NrPelny) VALUES (:ob_Id,:dok_NrPelny)');
ADOQuery1.parambyname('ob_id').asstring:=sqlResult.FieldByName('ob_Id').AsString;
ADOQuery1.parambyname('dok_NrPelny').asstring:='coś tam';
ADOQuery1.ExecSQL;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT into  tabAktywne (ob_Id,dok_NrPelny) VALUES (:ob_Id,:dok_NrPelny)');
240: ADOQuery1.Parameters.ParamByName('ob_Id').AsString:=sqlResult.FieldByName('ob_Id').AsString;
ADOQuery1.Parameters.ParamByName('dok_NrPelny').AsString:=sqlResult.FieldByName('dok_NrPelny').AsString;
ADOQuery1.ExecSQL;

[Error] Unit1.pas(240): Undeclared identifier: 'AsString'
[Error] Unit1.pas(241): Undeclared identifier: 'asstring'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

DOQuery1.ParamByName('ob_Id').AsString:=sqlResult.FieldByName('ob_Id').AsString;

DOQuery1.Parameters[0].AsString:=sqlResult.FieldByName('ob_Id').AsString;

[Error] Unit1.pas(241): Undeclared identifier: 'ParamByName'

ADOQuery1.Parameters.parambyname('xxx').value:='coś tam'

ADOQuery1.Parameters.parambyname('xxx').value:='coś tam';
ADOQuery1.Parameters.parambyname('xxx').DataType:=ftString;

Query1.Parameters.ParamByName('ob_Id').Assign Values:=sqlResult.FieldByName(':ob_Id').AsString;

[Error] Unit1.pas(235): Not enough actual parameters -zatrzymuje sie po Values

Query1.Parameters.ParamByName('ob_Id').Assign Values

Query1.Parameters.ParamByName('ob_Id').Value

> ##### [norniiica napisał(a)](https://4programmers.net/Forum/1453945):
> Podsumowując: Coraz lepiej rozumiem pisanie w Delphim; Zaczynam ogarniac znaczniki kodu ;D --->nic nie dziala..

A jakieś konkrety o co chodzi?

ostatni_ob_Id:string;

function pzapytanieSelect (zapytanie:string;ADOQuery1:TADOQuery;co:string):string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(zapytanie);
ADOQuery1.Open;
result:=ADOQuery1.FieldByName(co).AsString;//
end;

function fullResult (zapytanie:string;ADOQuery1:TADOQuery):TADOQuery;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(zapytanie);
ADOQuery1.Open;
result:=ADOQuery1;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
lastId,sql : string;
begin
  ADOConnection1.Connected:=False;
  ADOConnection1.Connected:=True;
  ADOQuery1.SQL.Clear;
 
  ostatni_ob_Id:=pzapytanieSelect ('SELECT MAX(ob_id)as ostatni FROM  tabAktywne;',ADOQuery1,'ostatni');
  sqlResult := fullResult ('SELECT * FROM vwZbiorcza_Pozycja WHERE ob_Id >'+ostatni_ob_Id+' ;',ADOQuery1);
  //TO DO ta petla powinna sie zatrzymac na jakims nullu
  sqlResult.First;
  while not sqlResult.EOF   do
    begin
     //OBSŁUGA Zapisu do tabAktywne
     edit1.Text:= sqlResult.FieldByName('ob_Id').AsString;

ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO  tabAktywne (ob_Id,dok_DataWyst) VALUES (:ob_Id,:dok_DataWyst)');

ADOQuery2.Parameters.ParamByName('ob_Id').Value:=sqlResult.FieldByName('ob_Id').AsString;
ADOQuery2.Parameters.parambyname('ob_Id').DataType:=ftInteger;

ADOQuery2.Parameters.ParamByName('dok_DataWyst').Value:=sqlResult.FieldByName('dok_DataWyst').AsString;
ADOQuery2.Parameters.parambyname('dok_DataWyst').DataType:=ftDateTime;

ADOQuery2.ExecSQL;
zapytanieInsert(sql,ADOQuery2);
    sqlResult.Next;
//break;
  end;
end;

  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, // 0..4
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, // 5..11
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, // 12..18
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, // 19..24
    ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, // 25..31
    ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, // 32..37
    ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval, // 38..41
    ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream, //42..48
    ftTimeStampOffset, ftObject, ftSingle); //49..51