Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in der Kategorie:
CodeLibProgrammierhilfenDelphi

function Klammer(s: string): string;
var
  i: integer;
  rec: boolean;
begin
  rec := false;
  result := '';
  for i := 1 to Length(s) do
  begin
    if copy(s,i,1) = ')' then
    begin
      rec := false;
    end;
    if rec then
    begin
      result := result + copy(s,i,1);
    end;
    if copy(s,i,1) = '(' then
    begin
      rec := true;
    end;
  end;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer

Lob? Kritik? Probleme? Schreiben Sie uns!

Ihr Name (optional):

E-Mail-Adresse (optional):

Nachricht: