Deutsches Lazarusforum

@theo: Vielen lieben Dank! Dein Code funktioniert einwandfrei. Aber selbst wäre ich da nie drauf gekommen. Bin ja nur ein Hobbyprogrammierer :D
@greye: Auch dir vielen Dank für deine Mühe. Den von dir verlinkten Forenbeitrag hatte ich auch schon gefunden. Er hat mich jedoch leider nicht ...

Hallo,
ich möchte in einem Editfeld nur bestimmte Tasten für die Tastatureingabe freigeben.
Dazu verwende ich in Edit1KeyPress folgende Prozedur:

if not (Key in ['a'..'z', 'A'..'Z', '0'..'9', '-', '_', ' ', #8, '(', ')', ',', '.', '$', '%', '&', '!', ';']) then Key := #0;


Dies funktioniert ...

Vielen Dank @fliegermichl
Das war der entscheidende Tipp! Das Ausdrucken mit Kopfzeilen funktioniert nun problemlos.

Ich hätte aber noch eine Frage in die gleiche Richtung: Da geht es jedoch nicht um das Ausdrucken, sondern um das Abspeichern des RichMemos als RTF. Auch hier sollte auf jeder Seite ...

Hallo,
ich drucke den Inhalt eines RichMemos auf die folgende Weise:


procedure TForm1.drucken;
var
print_parameters: TPrintParams;
begin
Fillchar(print_parameters, SizeOf(print_parameters), #0); //Initialisierung der print_parameters
print_parameters.JobTitle := 'Testdokument';
print ...

Vielen Dank für den Tipp :)

Ich habe das jetzt folgendermaßen (fast) gelöst bekommen:


uses
FTPSend;



procedure TForm1.ftpdatumzeit; //Checkt das Datum und die Uhrzeit einer auf dem FTP-Server vorhandenen Datei
var
aFTP: TFTPSend;
i: integer;
ftpdatum: String;
begin
aFTP := TFTPSend.Create ...

Hallo :)

Vielleicht könnt ihr mir ja bei einem Problem helfen.
Mit der folgenden Funktion lade ich von einem FTP-Server eine mir bekannte Datei, die auch immer den selben Dateinamen hat herunter (uses WinInet):


function getfile(server, username, password, localfile, remotefile: string; port ...