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;
Da ist Einiges im Argen...
*) wie schon gesagt wurde, passt der Name nicht zur Verwendung; wenn ich es richtig verstehe, dann sollte die Funktion *Soll_die_Zeile_verworfen_werden* heissen.
*) die Variablen sind unnotwendig
*) der übergebene String wird nicht auf seine Größe geprüft
*) die Logik kann man kürzer formulieren.
*) die Parameterübergabe mit string kann man optimieren
*) den Parameter kann man ebenso sprechend benamsen wie eine Variable
z.B.
Delphi-Quellcode:
function Soll_die_Zeile_verworfen_werden(const AZeile: string): Boolean;
begin
Result := ((2 <= Length(AZeile)) and ('/' = AZeile[1]) and ('/' = AZeile[2]));
// oder
Result := (1 = Pos('//', AZeile));
end;
HTH