-----------------------------------

redwolfgh

Thu May 14, 2009 10:39 pm


Please help me with this program...

-----------------------------------

What is it you are trying to achieve?



What is the problem you are having?



Describe what you have tried to solve this problem



Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)




record
	Number : int
	FirstName : string
	LastName : string
	Phone : string
	Email : string
    end record

setscreen ("graphics:800;900")

function searchString (lookString, inString : string) : boolean
    var lookLength, inLength : int
    var numCompares : int
    var found : boolean := false
    var subString : string

    % store the lengths of each string for convenience
    % in future calculations
    lookLength := length (lookString)
    inLength := length (inString)

    % only do check if the search string can fit into
    % the record
    if lookLength