Re: [DUG]: help with search string

[Mark Howard]

Brendon

 

This where I would start to test silly things - like

 

procedure TForm1.BitBtn7Click(Sender: TObject);
   var
    SearchText : string;

    QuestionText : String;
    tmp : address;
  begin

    QuestionText := 'Enter the name your looking for' 
  SearchText := inputbox( 'Name Search', QuestionText );
  if (SearchText <> '') and Find( SearchText ) then

.

.

.

Where does the error occur now?

 

Mark (flushed with an earlier success!)

----- Original Message -----

From: <[EMAIL PROTECTED]>

To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>

Sent: Tuesday, October 02, 2001 1:53 PM

Subject: Re: [DUG]: help with search string

On Tue, 2 Oct 2001 13:41:24 +1200, you wrote:

>Can you post the original problem again?
>
>Thanks
>
>Stacey
>
ok Stacey below os the code i am getting the error unterminated string
in the line which i will mark for you the error is at compile time and
is starting to really piss me off.

procedure TForm1.BitBtn7Click(Sender: TObject);
   var
    SearchText : string;
    tmp : address;
  begin
  file://error on this line// SearchText := inputbox( 'Name Search', 'Enter
the name your looking
for');
  if (SearchText <> '') and Find( SearchText ) then
    begin
    read( AddressFile, tmp );
    eName.text  := tmp.Name;
    eStreetAddress.text := tmp.StreetAddress;
    ecity.text:=tmp.city;
    ephone.text:=tmp.phone;
    emobile.text:=tmp.mobile;
    eemail.text:=tmp.email;
    end;
end;

...
   Brendon Toogood

E-Mail [EMAIL PROTECTED]
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/