Ad:

Pascal and Delphi Discussion Thread
Unsolved
Views: 8100

Dec 5th, 2007

Procedure for deleting array content

Expand Post »

Hello, guys!

I have to make a program with the following features.
- array of records

Pascal Syntax (Toggle Plain Text)
TYPE
  employeeRecord  = RECORD
                   name: STRING;
                   surname: STRING;
                   age: Integer;
                   END;
  employeeRecords = ARRAY OF employeeRecord ;
TYPE
  employeeRecord  = RECORD
                   name: STRING;
                   surname: STRING;
                   age: Integer;
                   END;
  employeeRecords = ARRAY OF employeeRecord ;

- a procedure/function to ADD data into the array
I did this one and I think it is working fine!
- a procedure/function to DELETE data from the array
I have problems with this procedure. It doesn't work when I try to delete the data in the first position of the array. Here's what I did so far:

Pascal Syntax (Toggle Plain Text)
PROCEDURE delete(VAR records: employeeRecords);
VAR
  n, j: Integer;
  nameDel: STRING;
 
BEGIN
  Write('Name: ');
  Readln(nameDel);
 
  n := 0;
 
  WHILE (records[n].name <> nameDel) AND (n < High(records)) DO
  BEGIN
    inc(n);
  END;
 
  IF records[n].name <> nameDel THEN
  BEGIN
    Writeln('That employee could not be found!');
    Writeln;
  END;
 
  IF records[n].name = nameDel THEN
  BEGIN
    FOR j := n TO High(records)-1 DO
    BEGIN
      records[j].name := records[j+1].name;
      records[j].surname := records[j+1].surname;
      records[j].age:= records[j+1].age;
      SetLength(records, High(records)); // MAYBE THIS LINE IS NOT CORRECT
    END
  END
 
END;
PROCEDURE delete(VAR records: employeeRecords);
VAR
  n, j: Integer;
  nameDel: STRING;

BEGIN
  Write('Name: ');
  Readln(nameDel);

  n := 0;

  WHILE (records[n].name <> nameDel) AND (n < High(records)) DO
  BEGIN
    inc(n);
  END;
 
  IF records[n].name <> nameDel THEN
  BEGIN
    Writeln('That employee could not be found!');
    Writeln;
  END;

  IF records[n].name = nameDel THEN
  BEGIN
    FOR j := n TO High(records)-1 DO
    BEGIN
      records[j].name := records[j+1].name;
      records[j].surname := records[j+1].surname;
      records[j].age:= records[j+1].age;
      SetLength(records, High(records)); // MAYBE THIS LINE IS NOT CORRECT
    END
  END

END;

If you have some ideas, please let me know. Thanks in advance!

Last edited by simps0n; Dec 5th, 2007 at 12:02 pm.

Similar Threads

Prblem with removing duplicates entries in a list. in Pascal and Delphi

simps0n

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

7 posts
since Dec 2007

Permalink

Dec 5th, 2007

Re: Procedure for deleting array content

The SetLength should not be in the loop, but after it. Other than that it looks fine to me.

BTW. You should be able to replace lines 27..29 with just
records[j] := records[j+1];

Don't know why you are using all-caps keywords, but it sure is anachronistic (a hold-over from brain-damaged BASIC users). I've not changed the functionality of your code here. Just structured it a little better...

Pascal Syntax (Toggle Plain Text)
PROCEDURE delete(VAR records: employeeRecords);
VAR
  n, j: Integer;
  nameDel: String;
 
BEGIN
  Write('Name: ');
  Readln(nameDel);
 
  n := 0;
 
  WHILE (records[n].name <> nameDel) AND (n < High(records)) DO
    Inc(n);
 
  IF records[n].name = nameDel
    THEN BEGIN
           FOR j := n TO High(records)-1 DO
             records[j] := records[j+1];
           SetLength(records, High(records))
         END
    ELSE BEGIN
           Writeln('That employee could not be found!');
           Writeln
         END
END;
PROCEDURE delete(VAR records: employeeRecords);
VAR
  n, j: Integer;
  nameDel: String;

BEGIN
  Write('Name: ');
  Readln(nameDel);

  n := 0;

  WHILE (records[n].name <> nameDel) AND (n < High(records)) DO
    Inc(n);
 
  IF records[n].name = nameDel
    THEN BEGIN
           FOR j := n TO High(records)-1 DO
             records[j] := records[j+1];
           SetLength(records, High(records))
         END
    ELSE BEGIN
           Writeln('That employee could not be found!');
           Writeln
         END
END;

Hope this helps.

Duoas

Featured Poster

Reputation Points: 1140

Solved Threads: 229

Postaholic

Offline

2,039 posts
since Oct 2007

Permalink

Dec 5th, 2007

Re: Procedure for deleting array content

Thank you very much, Duoas! Much appreciated.
You were perfectly clear and really helped me a lot.

Quote originally posted by Duoas ...

Don't know why you are using all-caps keywords, ...

I'm sorry for that.

Last edited by simps0n; Dec 5th, 2007 at 4:48 pm.

simps0n

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

7 posts
since Dec 2007

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: trying to use one form to open another form

Next Thread in Pascal and Delphi Forum Timeline: POSIBLE, POP3 indy using port 995

DaniWeb Message

Cancel Changes

User Name
Password