Zitat von
coly546:
Hi,
ich habe folgende Tabelle "gestaltet":
Huihuihuiui... also zu der write-Wüste: Guck Dir mal die Funktion StringOfChar() an, die liefert Dir einen String mit n-mal einem bestimmten Zeichen.
Ich habe Deinen Code nicht ausgeführt, aber ich denke mir, dass die vielen #xxx die Ecken und Linien einer Tabelle bilden.
Es würde da Sinn machen, sich die einzelnen Elemente vorher als Konstakte zu definieren
Delphi-Quellcode:
const
RAHMEN_OL = #123;
RAHMEN_O = #124;
RAHMEN_OR = #125;
RAHMEN_UL = #126;
RAHMEN_U = #127;
RAHMEN_UR = #128;
Dann solltest Du einen Rahmen auch mit der einfachen Anweisung
Delphi-Quellcode:
write(RAHMEN_OL + StringOfChar(50, RAHMEN_O) + RAHMEN_OR);
...
ausgeben lassen können.
(alles ungetestet, bitte selbst die richtigen Werte eintragen. Danke)
Gruß,
SirTwist