Memo text ausdrucken

[Finki]

Zitat von MrMooed:

An welcher Stelle kommt denn der Fehler genau? einfach mal einen Brakepoint nach dem Begin setzen (in die Zeile klicken, F5 drücken) und dann durch den Code bewegen (F8)

Sobald der im Befehl Printer.BeginDoc is komisch oder

[Sir Rufo]

Zitat von Finki:

Zitat von MrMooed:

An welcher Stelle kommt denn der Fehler genau? einfach mal einen Brakepoint nach dem Begin setzen (in die Zeile klicken, F5 drücken) und dann durch den Code bewegen (F8)

Sobald der im Befehl Printer.BeginDoc is komisch oder

Wenn du in deinem Code stehen hast

Delphi-Quellcode:

var
  Printer : TPrinter;

und dann irgendwo danach
Printer.BeginDoc; dann ist es doch mehr als logisch, dass dir da eine Zugriffsverletzung um die Ohren gehauen wird.
Oder hast du irgendwo in deinem Code der Variablen eine Instanz zugewiesen?

Automatisch passiert das nämlich nicht.

Diese Printer-Variable muss weg, definitiv

[Finki]

Gut jetzt kommt der fehler siehe Bild und da steht

Delphi-Quellcode:

function TControl.GetText: TCaption;
var
  len: Integer;
  GetTextMethod: TMethod;
begin
  // Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
  Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText: GetTextBuf Method is Nil');
  GetTextMethod := TMethod(@Self.GetTextBuf);  //<-- VERWEIS AUF DIESE ZEILE
  if GetTextMethod.Code = Pointer(@TControl.GetTextBuf) then begin
    Result := RealGetText;
  end
  else begin
    // Bummer, we have to do it the compatible way.
    DebugLn('Note: GetTextBuf is overridden for: ', Classname);
    len := GetTextLen;
    if len = 0 then begin
      Result := '';
    end
    else begin
      SetLength(Result, len+1); // make sure there is room for the extra #0
      FillChar(Result[1], len, #0);
      len := GetTextBuf(@Result[1], len+1); 
      SetLength(Result, len);
    end;
  end;
end;

[Finki]

Juhu ich kann drucken zur Fehler Behebung

Erster Fehler war das

Printer: TPrinter; Das muss wie einige schon gesagt haben raus

Und der Fehler der darauf hin kam
lag daran das die Memocomponente Memo hieß damit hat Lazarus irgendwie Probleme

Jetzt hab ich noch eine Frage wie kann ich sagen das unten in der mitte auf der Seite (A4) die gedruckt wird zB -Seite 1- stehen soll

Weil wenn ich sage das soll bei 90, 2550 des geht nicht