Forum: Programmieren allgemein
by Matze,
30. Apr 2006
Auf Anhieb habe ich diese Funktion gefunden. Ich weiß nicht, ob solch eine lange Funktion nötig ist, aber sie scheint zu funktionieren.
Nun gahe ich aber ins Bett, muss morgen früh raus, bye. ;)
Edit: http://www.swissdelphicenter.ch/de/showcode.php?id=2020
Forum: Programmieren allgemein
by Matze,
30. Apr 2006
Versuche es mal so:
if not (Pos('192', Textrec) = 1) then
Memo1.Lines.Add(Textrec);
oder so:
if Pos('192', Textrec) <> 1 then
Memo1.Lines.Add(Textrec);
Forum: Programmieren allgemein
by Matze,
30. Apr 2006
Es wird nun was hinzugefügt, sofern "192" nicht am Anfang von "Socket.ReceiveText; " steht. Was steht denn in "Socket.ReceiveText; "?
Forum: Programmieren allgemein
by Matze,
30. Apr 2006
Hi,
zu 1:
if Pos('\\', StringVar) = 1 then
// "\\" steht am Anfang
zu 2: explode