Hoi Leutz,
Ich wollte grade eine function erfinden, die etwas allgemeiner funtzt, aber irgendwie mag mich Delphi nicht... also, so sieht's aus: Ich habe einen String, den ich auf Klammern überprüfen will, und ob die auch alle schön brav geschlossen sind. Das mache ich folgendermaßen:
Delphi-Quellcode:
function Klammer(abc:string):boolean;
var
i: integer;
n: integer;
begin
i := 1;
n := length(abc);
if n > 0 then
begin
while i <= n do
begin
if abc[i] = '(' then K := K+1 // <<< Globale Variable für Klammern.
else
if abc[i] = ')' then K := K-1;
inc(i);
end
end;
if K = 0 then result := true
else result := false;
end;
Außerdem habe ich noch die Deklaration
Delphi-Quellcode:
type
TFTerm = class(TForm)
EEingabe: TEdit;
BPruefen: TButton;
BBeenden: TButton;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure BBeendenClick(Sender: TObject);
procedure BPruefenClick(Sender: TObject);
function Klammer(abc:string):boolean; // <<<***
private
public
{ Public-Deklarationen }
end;
hinzugefügt.