1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

function TDBWorks.Save(ShowError: boolean; DBFile: integer; ID: integer; Fields: array of String; FieldType: array of TFieldType; Values: array of String): boolean;
    var SQLStr: String;  A: integer;
    begin
      Result:=False;
                  
      for A:= 0 to High(Values) do
        Values[A]:=DBWorks.FormSpecialSigns(Values[A]);

      
      Form1.QSearch.Params.Clear;
      for A:= 0 to High(Values) do
        begin
          Form1.QSearch.Params.Add;
          Form1.QSearch.Params[A].Name:='Var'+inttostr(A);
        end;

      {Update}
      SQLStr:='UPDATE '+Data.DBData.DBFiles[DBFile];
      {Set}
      if Length(Fields)>0 then
        begin
         SQLStr:=SQLStr+' SET ';
         SQLStr:=SQLStr+Fields[0]+'= :Var0';
          for A:= 1 to High(Values) do
             SQLStr:=SQLStr+', '+Fields[A]+'= :Var'+inttostr(A);
        end;

      {Where}
      SQLStr:=SQLStr+' WHERE '+Data.DBData.IDField+'="'+inttostr(ID)+'"';

      Form1.QSearch.SQL.Clear;
      Form1.QSearch.SQL.Add(SQLStr);
                  
      for A:= 0 to High(Values) do
        begin
          Form1.QSearch.ParamByName('Var'+inttostr(A)).AsBlob:=Values[A];
          Form1.QSearch.Params[A].DataType:=FieldType[A];
          {an dieser Stelle ist Value genau der richtige Wert}
        end;

      {Search}
      try
        Form1.QSearch.ExecSQL;
        {es sind zwischen 90% und 100% des RTF gelöscht}
      except
        ErrorHandler.Msg('DBWorks_Save_ErrorInSQL',False,SQLStr);
        Exit;
      end;

      Result:=True;
      Form1.QSearch.Close;
      Form1.QSearch.Params.Clear;
    end;                    

1:

Form1.QSearch.ParamByName('Var'+inttostr(A)).AsBlob:=Values[A];                    

1:

Form1.QSearch.ParamByName('Var'+inttostr(A)).AsBlob:=Values[A];                    

1:

Form1.QSearch.ParamByName('Var'+inttostr(A)).AsMemo:=Values[A];                    

1:

Form1.QSearch.ParamByName('Var'+inttostr(A)).AsStringValues[A];                    

1:

Form1.QSearch.Params[A].Value:=Values[A];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

      for A:= 0 to High(Values) do
        begin
          if FieldType[A]=ftBlob then
            Form1.QSearch.Params[A].LoadFromStream(SystemProcs.RTFStream(Values[A]),ftMemo)
          else
            begin
              Form1.QSearch.Params[A].AsString:=Values[A];
              Form1.QSearch.Params[A].DataType:=FieldType[A];
            end;
        end;

...

function TSystemProcs.RTFStream(RTF: String): TStringStream;
var StrStream : TStringStream;
begin
  StrStream := TStringStream.Create(RTF);

  Result:=StrStream;

 // StrStream.Free;

end;