Hallo,
wenn Du das PSNFSS-Paket installiert hast (ist WIMRE normalerweise bei jeder TeX-Installation vorhanden bzw. auf CTAN zu finden), kannst Du folgendes machen:
Code:
\documentclass[a4paper,headsepline]{scrartcl}
\usepackage{mathptmx}
\usepackage{helvet}
\usepackage{courier}
\usepackage[T1]{fontenc}
\usepackage{german}
\usepackage[ansinew]{inputenc}
\usepackage{listings}
\usepackage{blindtext}
\begin{document}
\blindtext
\lstset{language=Delphi,
basicstyle=\ttfamily,
commentstyle=\upshape\ttfamily}
\begin{lstlisting}
TPerson = packed record
Name: String[24]; // 25 Bytes
Vorname: String[19]; // 20 Bytes
Alter: Integer; // 4 Bytes
end;
\end{lstlisting}
\blindtext
\end{document}
Die ersten drei Packages stellen die serifenbehaftete, die serifenlose und die breitengleiche Schrift auf Times, Helvetica bzw. Courier um.
basicstyle=\ttfamily aktiviert dann Courier für die Quelltexte, wobei jetzt auch Schlüsselwörter fett gedruckt werden, und
commentstyle=\upshape\ttfamily setzt die Kommentare aufrecht.
jkr