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:

procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  Stream: TMemoryStream;
  i, n: Integer;
  aArray: array of TClipBoardFormat;
begin
  Stream := TMemoryStream.Create;
  SetLength(aArray, ClipBoard.FormatCount);

  n := ClipBoard.FormatCount;

  {ClipBoard sichern}
  for i := 0 to ClipBoard.FormatCount-1 do
  begin
    aArray[i] := ClipBoard.Formats[i];
    ClipBoard.GetFormat(ClipBoard.Formats[i], Stream);
  end;

  ClipBoard.Assign(aPicture.Bitmap);
  PasteFromClipboard;

  ClipBoard.Clear;
  
  {ClipBoard wiederherstellen}
  for i := 0 to n-1 do
    ClipBoard.AddFormat(aArray[i], Stream);
end;                    

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

var
  // ...
  aStreams: array of TMemoryStream;
begin
  n := ClipBoard.FormatCount;

  SetLength(aStreams, n);

  // todo: Schleife, um alle n aStreams[i] per TMemoryStream.Create zu erzeugen
  // ...

  for i := 0 to n-1 do
  begin
    aArray[i] := ClipBoard.Formats[i];
    ClipBoard.GetFormat(aArray[i], aStreams[i]);
  end;
  
   // ...
end                    

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:

{Grafik in den Text von TRichMemo einfügen}
procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
begin
  try
    n := ClipBoard.FormatCount;
    SetLength(aFormats, n);
    SetLength(aStreams, n);

    for i := 0 to n-1 do
      aStreams[i] := TMemoryStream.Create;

    for i := 0 to n-1 do
    begin
      aFormats[i] := ClipBoard.Formats[i];
      ClipBoard.GetFormat(aFormats[i], aStreams[i]);
    end;

    ClipBoard.Assign(aPicture.Bitmap);
    PasteFromClipboard;

    for i := Low(aFormats) to High(aFormats) do
      ClipBoard.SetFormat(aFormats[i], aStreams[i]);

  finally
    for i := High(aStreams) downto Low(aStreams) do
      aStreams[i].Free;
  end;
end;                    

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:

{Grafik in den Text von TRichMemo einfügen}
procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
begin
  try
    n := ClipBoard.FormatCount;
    SetLength(aFormats, n);
    SetLength(aStreams, n);

Sleep(450) //<- Dies behebt den SIGSEGV-Fehler, Wert kann auch höher sein, 400 klappt nicht

    for i := 0 to n-1 do
      aStreams[i] := TMemoryStream.Create;

    for i := 0 to n-1 do
    begin
      aFormats[i] := ClipBoard.Formats[i];
      ClipBoard.GetFormat(aFormats[i], aStreams[i]);
    end;

    ClipBoard.Assign(aPicture.Bitmap);
    PasteFromClipboard;

    for i := Low(aFormats) to High(aFormats) do
      ClipBoard.SetFormat(aFormats[i], aStreams[i]);

  finally
    for i := High(aStreams) downto Low(aStreams) do
      aStreams[i].Free;
  end;
end;                    

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:
54:
55:
56:
57:
58:

implementation
//...
var
//...
  CF_RICHTEXT: Word;//UINT;

procedure TCustomRichMemo.InsertGraphic(const aPicture: TPicture);
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
  cpFormat: TClipBoardFormat;
begin
  try
    try
      n := ClipBoard.FormatCount;
      SetLength(aFormats, n);
      SetLength(aStreams, n);

      for i := 0 to n-1 do
        aStreams[i] := TMemoryStream.Create;

      for i := 0 to n-1 do
      begin
        aFormats[i] := ClipBoard.Formats[i];
        ClipBoard.GetFormat(aFormats[i], aStreams[i]);
      end;

      if Windows.IsClipboardFormatAvailable(CF_RICHTEXT) then
        cpFormat := CF_RICHTEXT;

      ClipBoard.Assign(aPicture.Bitmap);
      PasteFromClipboard;

      if cpFormat = CF_RICHTEXT then
        for i := Low(aFormats) to High(aFormats) do
        begin
          if aFormats[i] = cpFormat then
            Clipboard.SetFormat(cpFormat, aStreams[i])
        end
      else
        for i := Low(aFormats) to High(aFormats) do
          ClipBoard.SetFormat(aFormats[i], aStreams[i]);  {Andere Formate: Text, Grafiken usw.}

    finally
      for i := High(aStreams) downto Low(aStreams) do
        aStreams[i].Free;
    end;

  except
    ;  {Dzt. nichts}
  end;
end;

//...

initialization
  CF_RICHTEXT := RegisterClipboardFormat(RichEdit.CF_RTF);                    

1:
2:
3:
4:
5:

for i := 0 to n-1 do
begin
  aFormats[i] := ClipBoard.Formats[i];  //<- Hier knallts!
  ClipBoard.GetFormat(aFormats[i], aStreams[i]);
end;                    

1:
2:

if not ClipBoard.GetFormat(aFormats[i], aStreams[i]) then
  Result := False;                    

1:
2:
3:
4:
5:
6:
7:
8:

if cpFormat = CF_RICHTEXT then
    for i := Low(aFormats) to High(aFormats) do
    begin
        if aFormats[i] = cpFormat then
           Clipboard.SetFormat(cpFormat, aStreams[i])
    end
else
    ...                    

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

for i := 0 to n-1 do
begin
  aFormats[i] := ClipBoard.Formats[i];
    if not ClipBoard.GetFormat(aFormats[i], aStreams[i]) then
      Result := False;
//Merke hier, ob das Format CF_RICHEDIT ist (den Code habe ich verworfen, weil es nicht klappte)
end;

// füge die Grafik ein

for i := Low(aFormats) to High(aFormats) do
begin
  if aFormats[i] = CF_RICHEDIT then
    Clipboard.SetFormat(CF_RICHEDIT, aStreams[i])
  else
    ClipBoard.SetFormat(aFormats[i], aStreams[i]);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

(*      if cpFormat = CF_RICHTEXT then
        for i := Low(aFormats) to High(aFormats) do
        begin
          if aFormats[i] = cpFormat then
            Clipboard.SetFormat(cpFormat, aStreams[i]);
        end
      else
*)        for i := Low(aFormats) to High(aFormats) do
          ClipBoard.SetFormat(aFormats[i], aStreams[i]);  {Andere Formate: Text, Grafiken usw.}                    

1:
2:
3:
4:
5:

for i := 0 to n-1 do
begin
  aFormats[i] := ClipBoard.Formats[i];  //<- Hier!
  //...
end;                    

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:

function TCustomRichMemo.InsertGraphic(const aPicture: TPicture): Boolean;
var
  i, n: Integer;
  aFormats: array of TClipBoardFormat;
  aStreams: array of TMemoryStream;
begin
  Result := True;

  try  {except}
{--------------------------- Zwischenablage sichern ---------------------------}
    n := ClipBoard.FormatCount;
    SetLength(aFormats, n);
    SetLength(aStreams, n);

    {Stream-Array anlegen für die ClipBoard-Formate}
    for i := 0 to n-1 do
      aStreams[i] := TMemoryStream.Create;

    try  {finally}
      {ClipBoard-Formate sichern}
      {Array aFormats (=die ClipBoard-Formate) befüllen und Daten in das Array aStreams schreiben}
      for i := 0 to n-1 do
      begin
        aFormats[i] := ClipBoard.Formats[i];
        Result := ClipBoard.GetFormat(aFormats[i], aStreams[i]);
      end;


{------------------------------ Grafik einfügen -------------------------------}
      {Grafik zuweisen und ...}
      ClipBoard.Assign(aPicture.Bitmap);
      PasteFromClipboard;  {... einfügen}


{---------------------- Zwischenablage wiederherstellen -----------------------}
      {ClipBoard-Formate wiederherstellen}
      ClipBoard.Clear;
      for i := Low(aFormats) to High(aFormats) do
        ClipBoard.AddFormat(aFormats[i], aStreams[i]);

    finally
      for i := High(aStreams) downto Low(aStreams) do
        aStreams[i].Free;
    end;

  except
    Result := False;
    ClipBoard.Clear;
  end;
end;                    

1:
2:
3:
4:
5:

try
  { ... }
except 
  on E : Exception do ShowMessage(E.Message);
end                    

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

function TWin32WidgetSet.ClipboardGetData(ClipboardType: TClipboardType;
  FormatID: TClipboardFormat; Stream: TStream): Boolean;
var
  DataHandle: HGLOBAL;
  Data: pointer;
  Size: integer;
  {$IFDEF VerboseWin32Clipbrd}
  DbgFormatID: integer;
  {$ENDIF}
  Bitmap: TBitmap;
  BufferStream: TMemoryStream;
  BufferWideString: widestring;
  BufferString: ansistring;

  function ReadClipboardToStream(DestStream: TStream): Boolean;
  begin
    Result := false;

    DataHandle := Windows.GetClipboardData(FormatID);
    if DataHandle<>HWND(0) then
    begin
      Size := Windows.GlobalSize(DataHandle);  //Nach F7 hier kommt dann die SIGSEGV-Meldung!
//...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  x, y: Double;
begin
  try
    x := 1;
    y := 0;
    Caption := IntToStr(Round(x / y));

  except
    ShowMessage('Fehler.');
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure InitExceptions;
begin
//...
  ErrorProc:=@RunErrorToExcept;
//...
end;


//...                    

1:
2:
3:
4:
5:
6:
7:

var
  pIntPointer : ^Integer;
  IntVar : Integer;
begin
  pIntPointer := nil;
  IntVar := pIntPointer^; { <- und das dann in einem try..except Block }
end                    

1:
2:
3:

raise Exception.Create(
  'IndexOfCachedFormatID: Internal Error: invalid FormatID 0 for '+
     ClipboardTypeName[ClipboardType]);                    

1:
2:
3:
4:
5:
6:

var
  E : Exception;
begin
  E := Exception.Create('Test-Exception');
  Raise E at Address,Frame;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

    try  {finally}  //<- dieses try?
      {Array aFormats (=die ClipBoard-Formate) befüllen und Daten in das Array aStreams schreiben}
      for i := 0 to n-1 do
      begin
        {Stream-Array anlegen für die ClipBoard-Formate}
        aStreams[i] := TMemoryStream.Create;
        aFormats[i] := ClipBoard.Formats[i];  //<- diese Zuweisung?
        {ClipBoard-Formate sichern}
        ClipBoard.GetFormat(aFormats[i], aStreams[i]);