If Text = 'Heute*irgendwas*' then ?

[Äfan]

Hi,

Wie man schon aus dem titel entnehmen kann benötige ich ein irgendwas-zeichen für die if abfrage. Also If Text = 'Heute und dann noch irgendwas anderes dahinter then... Ich habe schon versucht mit If Text = 'Heute*' then, aber des geht nicht. Kann mir einer helfen ?

mfg

[Matze]

Sollte so ungefair gehen:

Delphi-Quellcode:

if Pos(Text, 'Heute') = 1 then ...

[JasonDX]

So dürfts gehn:

Delphi-Quellcode:

if pos('Heute', Text) = 1 then
//oder auch
if copy(Text, 1, 5) = 'Heute' then

Beim 1. Schaust du, ob das Wort 'Heute' an der Position 1 im Text vorkommt.
Bei der 2. Version schaust du, ob die ersten 5 Zeichen das wort 'Heute' ergeben

[Gambit]

if containsText(aText, 'heute') then...

Gruß

Gambit

//sorry, wenn heute an erster Stelle stehen soll, sind o.g Routinen besser

[Ultimator]

Ich glaube, er möchte darauf hinaus, dass auch bei sowas wie "h*lo" das Wort "Hallo" gefunden wird.

[DGL-luke]

das geht aber aus der fragestellung nicht hervor.
und es würde sehr viel weiterführen.

[Gambit]

dann vielleicht mal mit Stichwort "reguläre Ausdrücke" suchen oder googeln...

[malo]

Zitat:

Zitat von Ultimator

Ich glaube, er möchte darauf hinaus, dass auch bei sowas wie "h*lo" das Wort "Hallo" gefunden wird.

Nein, das "*" soll für einen Text HINTER dem "Hallo" stehen ;)

Zitat:

Also If Text = 'Heute und dann noch irgendwas anderes dahinter then

[Äfan]

Also an alle die

Delphi-Quellcode:

if pos('Hallo', Text) = 1 then

So meinte ichs, danke :D, allerdings wär das mit dem H*lo auch interessant !

[JasonDX]

das mit 'Ha*lo' dürfte so gehen (ist aber ungetestet)

Delphi-Quellcode:

var
  buff: integer;

  buff := pos('Ha', Text);
  if (buff > 0) and (pos('lo', Text) > buff) then

[MathiasSimmack]

Ist erst ein paar Stunden her: PathMatchSpec.

[malo]

Zitat:

Zitat von Äfan

allerdings wär das mit dem H*lo auch interessant !

Man könnte den String in eine StringListe laden, das "*" als Begrenzer nehmen. Dann etwa so:

Delphi-Quellcode:

s2 := stringList1.Strings[2];
if StringList1.Strings[1] = Copy(s, 1, Length(StringList1.Strings[1]) then
  begin
    for i := Length(StringList1.Strings[1]) to Length(s) do
      begin
        if s[i] = s2[1] then
          if copy(s, i, Length(s) - i) = s2 then
            ;//leere Anweisung, irgendwas hier machen
      end;
  end;

Ungefähr so könnte das klappen... ;)

//edit: :wall: UNd ich machs so kompliziert :(

[FabianIBerlin]

ich hatte gerade auch ein problem was hier reinpasst da ich wasverwende was ich hier gesehen habe.

volgendes:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Socket.SendText('message '+ Spieler.getSpielername(0) + ' ist dem Spiel Beigetreten');
end;

wird gesendet

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var befehl : string;
begin
  If Pos('message', Socket.ReceiveText) = 1 then befehl :='message';
  if befehl = 'message' then
  Memo1.Lines.Add(copy(Socket.ReceiveText,8,length(Socket.ReceiveText)));
end;

ist die abfrage doch dies geschieht nicht beim connecten, bzw der text wird nicht angezeigt kp warum nicht!

[Pseudemys Nelsoni]

Ganz einfach, weil du "Socket.ReceiveText" nur 1mal benutzen kannst.

Lösung: Lade es in eine Variable und benutze sie stattdessen.

[FabianIBerlin]

habe durch probieren es auch rausgekrigt danke aber :D