StringGrid - dickere Trennspalte

[sx2008]

Hier mal eine Prozedure, wie du das ganze StringGrid in die Zwischenablage kopieren kannst.
Es werden Tabulator und CR/LF als Tennzeichen verwendet.
Das ist bei der Zwischenablage so üblich und du kannst dein Sudoku z.B. direkt in Excel oder WinWord einfügen.
Ich habe den Sourcecode nicht getestet; also wenn ein Problem auftritt, dann versuche das bitte zuerst selber zu beheben.
Wenn du nicht weiterkommst kannst du aber gerne fragen.

Delphi-Quellcode:

uses Clipbrd;

procedure TForm1.GridToClipBoard;
var
  s : string;
  x, y : integer;
begin
  s := '';
  for y := 0 to StringGrid1.Rows-1 do
  begin
    for x := 0 to StringGrid1.Cols-1 do
    begin
       Result := result + StringGrid1.Cells[x,y];
       if x <> 0 then Result := Result + #9;  // Tabulator anhängen
    end;
    Result := Result + #13#10;  // CR/LF anhängen
  end;
  ClipBoard.AsText := s;  // in Zwischenablage schreiben
end;