Dunno Al, sorry, With all due respect, this is a bit long for a single method... ;-)
Cheers, C. -----Original Message----- From: Alistair Grant George [mailto:[EMAIL PROTECTED] Hello Conor, CBsc> test. Care to post the whole function, Al? Using D5: 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 := ''; //without this no warning if (Prompt = '') and (CheckBox = '') then exit; hList := TstringList.Create; el := TstringList.Create; dl := TstringList.Create; cb := TstringList.Create; Ttop := 1; if Prompt <> '' then [snip] _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi
