If Text = 'Heute*irgendwas*' then ?

[MathiasSimmack]

Ist erst ein paar Stunden her: PathMatchSpec.

[malo]

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: 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