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!.
:wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:
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