- Code: Alles auswählen
IF ExtTextLine.FIND('-') THEN BEGIN
REPEAT
IF ExtTextLine."Line No." = 10000 THEN
HeaderText[1] := ExtTextLine.Text;
IF ExtTextLine."Line No." = 20000 THEN
HeaderText[1] := HeaderText[1] + ' ' + ExtTextLine.Text;
IF ExtTextLine."Line No." = 30000 THEN
HeaderText[2] := ExtTextLine.Text;
IF ExtTextLine."Line No." = 40000 THEN
HeaderText[2] := HeaderText[2] + ' ' + ExtTextLine.Text;
IF ExtTextLine."Line No." = 50000 THEN
HeaderText[3] := ExtTextLine.Text;
IF ExtTextLine."Line No." = 60000 THEN
HeaderText[3] := HeaderText[3] + ' ' + ExtTextLine.Text;
UNTIL ExtTextLine.NEXT = 0;
END;
beschwerde wahr, dass eine manuell eingefĂĽgte zeile in einem textbaustein nicht angedruckt wird. ja kein wunder... eine mittendrin (statt am ende) eingefĂĽgte zeile bekommt zb die ID 2500 und was wird hier hardcodiert!?! unglaublich...