Board index » delphi » Adjust Hanger

Adjust Hanger

 Procedure SetChLine;
  begin
   For i := 1 to 10 do
    ChLine[i] := '-';
  end;

has to be:

  Procedure SetChLine;
  begin
   For i := 1 to ChLgt do
    ChLine[i] := '-';
  end;

------ SeaBert -------------
| E-Mail: jjt...@cs.ruu.nl |
------ C-Bert --------------

 

Re:Adjust Hanger


In article <Pine.HPP.3.91.960304163212.2702B-100...@nescio.cs.ruu.nl> *--Seabert--* <jjt...@cs.ruu.nl> writes:

Quote
> Procedure SetChLine;
>  begin
>   For i := 1 to 10 do
>    ChLine[i] := '-';
>  end;
>has to be:
>  Procedure SetChLine;
>  begin
>   For i := 1 to ChLgt do
>    ChLine[i] := '-';
>  end;
>------ SeaBert -------------
>| E-Mail: jjt...@cs.ruu.nl |
>------ C-Bert --------------

Or in COBOL:

        MOVE ALL CORRESPONDING CLOTHES TO FLOOR OF BEDROOM.
        PERFORM REPLACE-ALL-HANGERS-WITH-NEW-ONES.
        PERFORM MOVE-CLOTHES UNTIL SICK-OF-IT.
        MOVE ALL CLOTHES IN BEDROOM TO DUMPSTER.
        OPEN INPUT COLD-BEER.
        PERFORM TO-HELL-WITH-IT-ANYWAY.
        STOP RUN.

Other Threads