nur der Vollständigkeit halber:
Delphi-Quellcode:
for i:=1 to length(s) do
if s[i] = '-' then
begin
//Anweisung wenn String das Zeichen "-" enthält.
Break;
end;
Delphi-Quellcode:
// langsam
B := True;
for i:=1 to length(s) do
if s[i] = '-' then
B := False;
if B then
begin
//Anweisung wenn String das Zeichen "-" nicht enthält.
end;
// schneller
B := True;
for i:=1 to length(s) do
if s[i] = '-' then
begin
B := False;
Break;
end;
if B then
begin
//Anweisung wenn String das Zeichen "-" nicht enthält.
end;
aber schneller und einfacher ist dennoch Pos
Delphi-Quellcode:
if Pos('-', s) = 0 then
begin
//Anweisung wenn String das Zeichen "-" nicht enthält.
end;