@tommie-lie
Das macht
IMHO keinen Sinn, die Setze Methode sieht ca. so aus
Delphi-Quellcode:
procedure Setze_Doc_Type(s:string);
var rueckgabe : String;
begin
rueckgabe := '';
if (Document = 'xyz') then
rueckgabe := 'xy-Typ'
else
rueckgabe := 'unknown';
p_Doc_Type := rueckgabe;
end;
Der üebrgebene Parameter wird also gar nicht gebraucht ! Ich rufs jetzt halt so auf
Setze_Doc_Type('Dummy');
sinnig ist dies aber nicht wirklich.