linux-l: Free Pascal Compiler

[Polet & SEIBERTZ]

>type tpointer=^tzeile;
>     tzeile=RECORD
>                 inhalt:string[80];
>                 next:tpointer;
>            end;
>
>var zaktuell,zkopf:tpointer;

Entschuldigung, dafür das ich díe VAR-Dek. nicht richtig gelesen hatte.
Gesagtes triff dann für zaktuell zu. Nochmals Entschuldigung!

Wolfgangs Einwand zur Funktions/Prozedur-Problematik, halte ich für 
auch für richtig.

> IF zkopf=NIL THEN
>   New(zaktuell)
> ELSE
>  new(zaktuell^.next)

wahrscheinlich:

IF zkopf=NIL THEN BEGIN
                  new(zaktuell);
                  zkopf := zaktuell;
                  END
             ELSE BEGIN
                  new(zaktuell^.next);
                  zaktuell := zaktuell^.next;
                  END;

wenn man Deine Funktionswünsche mit beachtet.

Gruß
Egbert