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:

type
//Memo in DB speichern
  TAngebots_Daten = record
    Liste : tStrings;
    Liste2 : tStrings;
end;

var
  Test : TAngebots_Daten;

procedure TForm1.Button3Click(Sender: TObject);
var
  ID : Integer;
begin
  Test.Liste := Memo1.Lines;
  With Datamodule2 do
  begin
    Blop.Active := false;
    Blop.SQL.Clear;
    Blop.SQL.Add('select * from Demo');
    Blop.SQL.Add('order by ID');
    blop.Active := true;
    blop.Last;
    ID := Blop.FieldByName('ID').AsInteger + 1;
    Blop.Active := false;
    Blop.SQL.Clear;
    Blop.SQL.Add('select * from Demo');
    blop.SQL.Add('where ID = :Nummer');
    Blop.ParamByName('Nummer').AsInteger := ID;
    Blop.Active := true;
    blop.edit;
    Blop.FieldByName('ID').AsInteger := ID;
   (Blop.FindField('Feld') as TBlobField).Assign(Test.Liste);
    Blop.ApplyUpdates;
    IBTransaction2.Commit;
  end;
end;					

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

procedure TForm1.Button4Click(Sender: TObject);
var
 ID : Integer;
begin
  With Datamodule2 do
  begin
    ID := 1;
    Blop.Active := false;
    Blop.SQL.Clear;
    Blop.SQL.Add('select * from Demo');
    blop.SQL.Add('where ID = :Nummer');
    Blop.ParamByName('Nummer').AsInteger := ID;
    Blop.Active := true;
   //wenn ich das Bolp-Feld direkt in das Memo schreibe geht es
   // Memo2.Lines.Assign(Blop.FindField('Feld') as TBlobField );
    Test.Liste2.Assign(Blop.FindField('Feld') as TBlobField );
  end;
  Memo2.Lines.Assign(test.Liste2);
end;