Hallo Leute,
ich habe folgende Methode:
Delphi-Quellcode:
function TUser.Rechte(cModul:
String) :
string;
begin
if AnsiCompareText(cModul,'
Angebot') = 0
then Result := FAngebot
else if AnsiCompareText(cModul,'
Auftrag') = 0
then Result := FAuftrag
else if AnsiCompareText(cModul,'
AV') = 0
then Result := FAV
else if AnsiCompareText(cModul,'
Fertigung') = 0
then Result := FFertigung
else if AnsiCompareText(cModul,'
Einkauf') = 0
then Result := FEinkauf
else if AnsiCompareText(cModul,'
Versand') = 0
then Result := FVersand
else if AnsiCompareText(cModul,'
Reparatur') = 0
then Result := FReparatur
else if AnsiCompareText(cModul,'
Supply') = 0
then Result := FSupply
else if AnsiCompareText(cModul,'
Kunden') = 0
then Result := FKunden
else if AnsiCompareText(cModul,'
Artikel') = 0
then Result := FLager
else if AnsiCompareText(cModul,'
Projekt') = 0
then Result := FProjekt
else if AnsiCompareText(cModul,'
Zeichnung') = 0
then Result := FZeichnung
else if AnsiCompareText(cModul,'
Pruefmtl') = 0
then Result := FPruefmtl
else if AnsiCompareText(cModul,'
Iso9000') = 0
then Result := FIso9000
else if AnsiCompareText(cModul,'
System') = 0
then Result := FSystem
else if AnsiCompareText(cModul,'
Dokument') = 0
then Result := FDok
else Result := '
';
end;
Beim Übersetzen meldet nun der Compiler "W1035 Rückgabewert der Funktion 'TUser.Rechte' könnte undefiniert sein"
Warum?
Auch ein Initialisieren von Result ändert nichts an der Meldung.
Irgendwelche Ideen?
Gruss Jörg