Ich weiß ja nicht wer die Funktions-/Prozedur-Namen vergeben hat, aber die Funktionen passen nicht zur Benennung.
Diese Funktion verwirft oder überspringt keine Kommentarzeile, sondern prüft, ob es sich um eine Kommentarzeile handelt.
Der Name ist also verwirrend und sollte daher auf
function Ist_Kommentarzeile( const s : string ) : Boolean;
geändert werden - oder die Funktion macht nicht das, was sie eigentlich machen soll
1. Eine Funktion, die eine Kommentarzeile verwirft, d.h. überspringt.
Delphi-Quellcode:
function Verwerfe_Kommentarzeile(s:string):boolean; // überspringt die Kommentarzeile
var return_wert:boolean;
position:integer;
begin
If (s[1]='/') and (s[2]='/') then // Ist der Ansatz richtig??
result=true;
else
result=false;
end;
Was soll diese Prozedur denn nun? Groß- und Kleinschreibung ignorieren? erlauben?
Aktuell macht diese Prozedur nichts von alledem, sondern wandelt alle Zeichen in Großbuchstaben um.
2. Eine Prozedur, die Groß- und Kleinschreibung ignoriert.
Delphi-Quellcode:
procedure erlaube_gross_Kleinschreibung(var s:string);
begin
s:=uppercase(s); // Großschreibung
end;
ok, die ist wohl noch nicht fertig
3. Eine Prozedur, die Kommentare an bestimmten Positionen verwirft, d.h löscht.
Delphi-Quellcode:
procedure bereinige_Datensatz_von_Kommentaren(var s:string);
// löscht im Datensatz den folgenden Kommentar
var
position:integer;
begin
end;
Diese Prozedur macht tatsächlich genau das, was der Name vermuten lässt
4. Eine Prozedur, die führende Leerzeichen löscht.
Delphi-Quellcode:
procedure loesche_fuehrende_Leerzeichen(var s:string);
begin
while s[1]= '' do // Passt das so?
delete (s,1,1);
end;