Hallo Delphi Community


Also ich habe mal wieder ein problem. Ich möchte einen String durchsuchen lassen, unzwar wie folgt:

markieren

Delphi-Quellcode:

s:= '130 - 140';
for i:=1 to length(s) do
if s[i]<>'-' then
begin
//Anweisung wenn String das Zeichen - nicht enthält.
end;

Also was ich damit machen möchte ist folgendes: Ich habe einen Wert in einem String. Dieser soll durchsucht werden nach dem Zeichen -. Wenn es das Zeichen nicht enthält soll eine Aktion durchgeführt werden, wenn es das Zeichen enthält geschiet eine andere Aktion.

Was mache ich falsch? habe schon alles versucht^^

Zitat von Hexla:

Hallo Delphi Community


Also ich habe mal wieder ein problem. Ich möchte einen String durchsuchen lassen, unzwar wie folgt:

markieren

Delphi-Quellcode:

s:= '130 - 140';
for i:=1 to length(s) do
if s[i]<>'-' then
begin
//Anweisung wenn String das Zeichen - nicht enthält.
end;

Also was ich damit machen möchte ist folgendes: Ich habe einen Wert in einem String. Dieser soll durchsucht werden nach dem Zeichen -. Wenn es das Zeichen nicht enthält soll eine Aktion durchgeführt werden, wenn es das Zeichen enthält geschiet eine andere Aktion.

Was mache ich falsch? habe schon alles versucht^^

Nix falsch!!??

Hallo, warum verwendest du nicht Pos() ?

Ich glaube, das was du suchst ist pos

Zitat von OH:

Delphi syntax:

function Pos(Substr: string; S: string): Integer;

Description

In Delphi, Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.

Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.

The PosEx function is similar to Pos, but provides additional features and can be used in C++ code.

Naja mit Position hatte ich es versucht bin jedoch gescheitert, ich will ja nur ne Logische Anweisung erzeugen.

Wenn String Zeichen enthält: Garnichts machen
Wenn String Zeichen nicht enthält: Was machen

Lies dir meinen Post nochmal durch.

Ah ok danke ich werds mal mit Pos versuchen =)

nur der Vollständigkeit halber:

markieren

Delphi-Quellcode:

for i:=1 to length(s) do
  if s[i] = '-' then
  begin
    //Anweisung wenn String das Zeichen "-" enthält.
    Break;
  end;

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

if Pos('-', s) = 0 then
begin
  //Anweisung wenn String das Zeichen "-" nicht enthält.
end;

Zitat von toms:

Hallo, warum verwendest du nicht Pos() ?

Ist OK, POS wuerde ich auch nehmen..aber!!! was ist falsch an seinem Code?..seh nix!!!????

Zitat von Der.Kaktus:

Zitat von toms:

Hallo, warum verwendest du nicht Pos() ?

Ist OK, POS wuerde ich auch nehmen..aber!!! was ist falsch an seinem Code?..seh nix!!!????

Zitat:

markieren

Delphi-Quellcode:

s:= '130 - 140';
for i:=1 to length(s) do
if s[i]<>'-' then
begin
//Anweisung wenn String das Zeichen - nicht enthält.
end;

Hier wird das auskommentierte jedes mal ausgeführt, wenn das zeichen <> - ist. Es soll aber nur ausgeführt werden, wenn das - Zeichen garnicht drinnen ist, darum muss man entweder eine Boolean-Variable nehmen oder eben Pos verwenden.