Funktionen und Prozeduren

[Slashmob]

Ah ok ok...da kommen wir der Sache schon ein bisschen näher.
Nun muss ich also nur noch die ganzen Funktionen und Prozeduren fertigmachen, damit die Eingabedatei "bereinigt" wird.


Das hab ich schon gemacht...ist das korrekt so? Wenn nein, wo ist der Fehler?
Danke schon mal für die ganzen Tipps!

Delphi-Quellcode:

function Verwerfe_Kommentarzeile(s:string):boolean;
    // führt zum Überspringen der Kommentarzeile
    var return_wert:boolean;    // ??
        posi:integer;
       begin
            posi:=pos('//',s);
            If (s[1]='/') and (s[2]='/') then
            delete(s,posi,length(s));
       end;

    procedure loesche_fuehrende_Leerzeichen(var s:string);
       begin
            If (s <=0) then exit;            
            While (s>0) and (s[1]= ' ') do // Nur wenn String größer als 0
            delete (s,1,1);     // löscht erstes Zeichen (das Leerzeichen) im String
       end;

    procedure erlaube_gross_Kleinschreibung(var s:string); 
       begin
            s:=uppercase(s);
            s:=lowercase(s);
       end;

    procedure bereinige_Datensatz_von_Kommentaren(var s:string);
    // löscht im Datensatz den folgenden Kommentar
    var
        posi  // Position
        :integer;
       begin
            posi:=pos('//',s);
            delete(s,posi,length(s));
       end;