Ad:

Pascal and Delphi Discussion Thread
Unsolved
Views: 1018

Sep 16th, 2009

-1

How to improve my programm in Pascal?

Expand Post »

This is my programm which is to search in the data file.
I cannot search the data with key words/character but only the full words.
How can I correct my programm to become searching in key words/character?

The DATA:
20081231 Betty 03/09/1978

The programm
begin
write('Member ID > ');
readln(tid);
searching:=false;
assign(infile,infilename);
reset(infile);
while not eof(infile) do begin
readln(infile,id,na,bdy,bdm,bdd);
if id=tid then begin
writeln('Name:',na);
writeln('Date of birth: ',bdy,'-',bdm,'-',bdd);
searching:=true;
end;
end;
if searching=false then
writeln(tid,' cannot be found.');
close(infile)
end;

Similar Threads

What program language should a beginner use? in IT Professionals' Lounge
Pascal random numbers are not random in Pascal and Delphi
Clean Your Prefetch to Improve Performance in Windows tips 'n' tweaks
Pascal games in Pascal and Delphi

yozuca

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Sep 2009

Permalink

Sep 16th, 2009

Re: How to improve my programm in Pascal?

See the helpfile for the function Pos(). It will allow you to search for a substring.

pritaeas

Sponsor

Featured Poster

Reputation Points: 550

Solved Threads: 728

Bite my shiny metal ass!

Offline

4,166 posts
since Jul 2006

Permalink

Sep 17th, 2009

Re: How to improve my programm in Pascal?

you can use records to store the members data
like my code

pascal Syntax (Toggle Plain Text)
 
{
The DATA:
20081231 Betty 03/09/1978
 
The programm
}
program solution;
 
type Tmember = record
                  id:longint;
                  name:string;
                  day:1..31;
                  month:1..12;
                  year:1900..3000;
               end;
 
 
var infile:file of Tmember;
    infilename:string;
    someone:Tmember;
    searching:boolean;
    idn:longint;
 
 
begin
     infilename:='C:\myfile.dat';
     write('Member ID > ');
     readln(idn);
     searching:=false;
     assign(infile,infilename);
     reset(infile);
     while not eof(infile) do begin
           read(infile,someone);
           if idn=someone.id then begin
           writeln('Name:',someone.name);
           writeln('Date of birth: ',someone.day,'-',someone.month,'-',someone.year);
           searching:=true;
           end;
     end;
     if searching=false then
     writeln(someone.id,' cannot be found.');
     close(infile)
end.
{
The DATA:
20081231 Betty 03/09/1978

The programm
}
program solution;

type Tmember = record
                  id:longint;
                  name:string;
                  day:1..31;
                  month:1..12;
                  year:1900..3000;
               end;


var infile:file of Tmember;
    infilename:string;
    someone:Tmember;
    searching:boolean;
    idn:longint;


begin
     infilename:='C:\myfile.dat';
     write('Member ID > ');
     readln(idn);
     searching:=false;
     assign(infile,infilename);
     reset(infile);
     while not eof(infile) do begin
           read(infile,someone);
           if idn=someone.id then begin
           writeln('Name:',someone.name);
           writeln('Date of birth: ',someone.day,'-',someone.month,'-',someone.year);
           searching:=true;
           end;
     end;
     if searching=false then
     writeln(someone.id,' cannot be found.');
     close(infile)
end.

of course you can search any elements of the record in the file.

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Sep 20th, 2009

Re: How to improve my programm in Pascal?

I think I forget about writting a record to a file.....fixed.....

pascal Syntax (Toggle Plain Text)
 
{full commented version created by FlamingClaw 2009}
program solution;
 
type Tmember = record
                  id:longint;
                  name:string;
                  day:1..31;
                  month:1..12;
                  year:1900..3000;
               end;
 
 
var infile:file of Tmember; {this file can contain records only...}
    infilename:string;      {stores the file's name ,path,and extension}
    someone,base:Tmember;   {two records,someone for read in,base for write in}
    searching:boolean;      {checking search,done it or not...}
    idn:longint;            {we search by id,and its type is longint same as in the record's field}
 
{here begins the main program}
begin
     {the file named myfile.dat and placed to the C:\ drive}
     infilename:='C:\myfile.dat';
     write('Member ID > ');
     {here catch the answer of the user}
     readln(idn);
     {searching is set to false}
     searching:=false;
     {assign the file var to a file,that is set to infilename }
     assign(infile,infilename);
     {create the data file,or if it is exists then delete its contents!}
     rewrite(infile);
     {fill the record's fields with these data:
     20081231 Betty 03/09/1978 }
     with (base) do begin
                      id:=20081231;
                      name:='Betty';
                      day:=03;
                      month:=09;
                      year:=1978;
     end;
     {first write the data file contents}
     write(infile,base);
     {file opening for reading...}
     reset(infile);
     {loop will over and over till we reach the end of the file}
     while not eof(infile) do begin
           {read one record,by round}
           read(infile,someone);
           {if the catched answer is equal to the readed record' id field then}
           if idn=someone.id then begin
           {write out the results to the screen,used by the record}
           writeln('Name:',someone.name);
           writeln('Date of birth: ',someone.day,'-',someone.month,'-',someone.year);
           {and the searching was success,everybody happy !}
           searching:=true;
           end;
     end;
     {if there were not success the loop then,search is stay false}
     if searching=false then
     {and notify the user...}
     writeln(someone.id,' cannot be found.');
     {it is not matter that the process was success or not close the file}
     close(infile);
     readln;{waits for pressing the enter button}
end.  {and here the end of the program}
{full commented version created by FlamingClaw 2009}
program solution;

type Tmember = record
                  id:longint;
                  name:string;
                  day:1..31;
                  month:1..12;
                  year:1900..3000;
               end;


var infile:file of Tmember; {this file can contain records only...}
    infilename:string;      {stores the file's name ,path,and extension}
    someone,base:Tmember;   {two records,someone for read in,base for write in}
    searching:boolean;      {checking search,done it or not...}
    idn:longint;            {we search by id,and its type is longint same as in the record's field}

{here begins the main program}
begin
     {the file named myfile.dat and placed to the C:\ drive}
     infilename:='C:\myfile.dat';
     write('Member ID > ');
     {here catch the answer of the user}
     readln(idn);
     {searching is set to false}
     searching:=false;
     {assign the file var to a file,that is set to infilename }
     assign(infile,infilename);
     {create the data file,or if it is exists then delete its contents!}
     rewrite(infile);
     {fill the record's fields with these data:
     20081231 Betty 03/09/1978 }
     with (base) do begin
                      id:=20081231;
                      name:='Betty';
                      day:=03;
                      month:=09;
                      year:=1978;
     end;
     {first write the data file contents}
     write(infile,base);
     {file opening for reading...}
     reset(infile);
     {loop will over and over till we reach the end of the file}
     while not eof(infile) do begin
           {read one record,by round}
           read(infile,someone);
           {if the catched answer is equal to the readed record' id field then}
           if idn=someone.id then begin
           {write out the results to the screen,used by the record}
           writeln('Name:',someone.name);
           writeln('Date of birth: ',someone.day,'-',someone.month,'-',someone.year);
           {and the searching was success,everybody happy !}
           searching:=true;
           end;
     end;
     {if there were not success the loop then,search is stay false}
     if searching=false then
     {and notify the user...}
     writeln(someone.id,' cannot be found.');
     {it is not matter that the process was success or not close the file}
     close(infile);
     readln;{waits for pressing the enter button}
end.  {and here the end of the program}

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: question on TFileStream (Inno Setup)

Next Thread in Pascal and Delphi Forum Timeline: Delphi programs not responding when run outside of IDE

DaniWeb Message

Cancel Changes

User Name
Password