Tabelle mit eigenem Text drucken

[Marcel_Mars]

Danke vielmals!!!
Eigentlich sollte ja alles funktionieren, aber wenn ich auf den Button ''Drucken'' drücke, kommt diese Fehlermeldung: Zugriffsverletzung bei Adresse 004151D3 in Modul ' Knochenalter Q10.exe!' Lesen Von Adresse 8BD88BAB!.

Das heisst ich kan nichts drucken. Liegt das an dem Quelltext oder hab ich was falsches gelesen?

Wäre echt froh wenn ich endlich drucken könnte!

Freundliche Grüsse von Marcel

[marabu]

Marcel, du musst mal den Code zeigen, mit dem du zu drucken versuchst.

[Marcel_Mars]

Meinst du den Quellcode?
Er ist sehr lange welchen Teil wilst du sehen?

[Marcel_Mars]

Sorry ich habe was falsch eingetippt!
Aber es gibt dennoch Probleme!
Erstens: Wie kann ich mit PrintNamedValues die nächste Zelle anwählen?
2.: Warum erscheint beim Beenden immer Runtime (noch irgendwas)?

Ich hätte nie gedacht, dass das Drucken von Tabellen eine solche Herausforderung ist

Danke wenn ihr mir helf!

Freundliche Grüsse

Marcel

[marabu]

Hallo Marcel,

PrintNamedValues() schreibt automatisch alle Werte (da ist eine Schleife enthalten) untereinander, du musst also keine neue Zeile anwählen. Wenn du magst, dann hänge doch dein Projekt als ZIP-Archiv (ohne EXE und DCU) an. Vielleicht bekommst du dann den Runtime-Fehler behoben und auch noch ein paar Tipps.

Freundliche Grüße

[Marcel_Mars]

Hallo es ist zwar schon länger her aber ich hab noch eine Frage:
Wie kann man das abändern sodass man dreispaltig druckenkann?

Delphi-Quellcode:

function PadRight(const s: String; minLength: Cardinal; padChar: Char = ' '): String;
begin
  if Length(s) < minLength then
  begin
    SetLength(Result, minLength);
    Move(s[1], Result[1], Length(s));
    FillChar(Result[Succ(Length(s))], minLength - Length(s), padChar);
  end else Result := s;
end;

Ich hab schon viel ausprobiert aber es gelang mir bisher nicht.
Vielen dank!

Freundliche grüsse
Mars