Funktionen und Prozeduren

[p80286]

Ein wenig Konfus?

Delphi-Quellcode:

function Loesche_Kommentar(s:string):string;
var
  posi:integer;
begin
  posi:=pos('//',s);
  if Posi>0 then delete(s,posi,maxint);
  result:=s
end;
 
function Loesche_fuehrende_Leerzeichen(s:string):string;
begin
  result:=trimleft(s);
end;
 
function Erstelle_Grossschreibung(s:string):string;
begin
  result:=uppercase(s);
end;

procedure Satzverarbeitung(s:string);
var
  temps:string;

begin
  temps:=s;
  temps:=Loesche_Kommentar(temps);
  temps:=Loesche_fuehrende_Leerzeichen(temps);
  if length(temps)>0 then begin
    temps:=Erstelle_Grossschreibung(temps);
    // weitere Prüfungen
    // wenn Fehler dann Showmessage('Satz:'+s+' ist fehlerhaft!');
  end;
 
end;

Gruß
K-H