'Return value of function might be undefined' Surely: Result := ''; defines a return value??
function EditBox(Prompt, Caption, Default, PassChar, CheckBox, Sound: string; Pic: Tpicture; BoxColor, EditColor: Tcolor; Position: Tposition; StayOnTop: Boolean; EditFont, CheckBoxFont: Tfont; EditWidth: Integer): string; var form: Tform; ww, Ttop, i: Integer; p: array[0..255] of char; hList, el, dl, cb: TstringList; begin Result := ''; //if this lines removed the warning goes away?????????? if (Prompt = '') and (CheckBox = '') then exit; _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi
