Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

Re: StringGrid - dickere Trennspalte

  Alt 12. Jul 2008, 10:27
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;
  Mit Zitat antworten Zitat