String erkennen und aufteilen!

[la.reunion]

Hallo,
Ich habe ien kleine aber wichtiges Problem.
Ich möchte eine Abfrage machen in der folgendes abgefragt wird:

Wenn der string mit \\ anfängt soll er in memo2 geschirben werden, ansonsten in memo1.

Wie kann cih das anstellen?

Danke für eure Hilfe

PS:. Wie kann cih den String unterteilen sprich wenn der string \\192.168.0.0 heisst ihn in 4 variablen auteilen
also die erste 192....... usw.

Lg La.Reunion

[Matze]

Hi,

zu 1:

Delphi-Quellcode:

if Pos('\\', StringVar) = 1 then
  // "\\" steht am Anfang

zu 2: explode

[la.reunion]

DANKE für die schnelle Antowot!
...was ist mit stringvar gemeint? bzwwas muss ich damit machen?


Lg La.Reunion

[EDatabaseError]

Zitat:

Zitat von la.reunion

PS:. Wie kann cih den String unterteilen sprich wenn der string \\192.168.0.0 heisst ihn in 4 variablen auteilen
also die erste 192....... usw.

Lg La.Reunion

explode

[himitsu]

Zitat:

Zitat von la.reunion

...was ist mit stringvar gemeint? bzwwas muss ich damit machen?

für StringVar mußt du einfach nur deine StringVariable einsetzen.

Also

Delphi-Quellcode:

Var S: String;

S := '\\192.168.0.0';

Delphi-Quellcode:

If Pos('\\', S) = 1 Then
  Memo1.Lines.Add(S)
Else
  Memo2.Lines.Add(S);

[la.reunion]

mhh das habe ich gemacht mein string ist leider nur danach leer :-(
bzw in memo2 wird immer nur eine leere zeile hinzugefügt


Ist für einen chat das die IP mitgesendet wird

Server:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  I: integer;
begin
Text:= Socket.ReceiveText;
if Pos('\\',Text) = 1 then
Memo2.Lines.add(Socket.ReceiveText) else
Memo1.Lines.Add(Timetostr(now)+': '+Text);
For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
with ServerSocket1.Socket.Connections [I] do
if (connected) then SendText(Text);
  end;
end;

Client:

Delphi-Quellcode:

Var
IP : string;
begin
Label3.Caption := IP;
if (ClientSocket1.Active=true) then
ClientSocket1.socket.SendText('\\'+IP);
end;

[la.reunion]

AH habs
bei dme code war ein fehler!!!

Bei

if Pos('\\',Text) = 1 then
Memo2.Lines.add(Socket.ReceiveText) else
...muss einfach nur TEXT sein!


Danke für eure antworten!
Lg La.Reunion

PS:. wie kann cih amchen das die zeile beim ausloggen wieder gelöscht wird?

[himitsu]

Erstens: dein QuellCode ist echt besh*** formatiert ... kaum zu entziffern.

Zweitens: das "=true" gewöhn dir ganz schnell ab, es kann und wird abundzu zu Problemen führen
denn TRUE ist nicht gleich TRUE

Teste es selber mal

Delphi-Quellcode:

Var B: Boolean;

Begin
  B := True;

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ...  // wird ausgelöst (OK, hier funktioniert es mal)

  If not B Then ...     // wird nicht ausgelöst
  If B Then ...         // wird ausgelöst



  B := Boolean(2);  // ist im Grunde auch True, da TRUE <> 0

  If B = False Then ... // wird nicht ausgelöst
  If B = True Then ...  // wird auch nicht ausgelöst !!!

  If not B Then ...     // wird nicht ausgelöst
  If B Then ...         // wird ausgelöst



  B := Boolean(0);  // oder B := False;

  If B = False Then ... // wird ausgelöst
  If B = True Then ...  // wird nicht ausgelöst

  If not B Then ...     // wird ausgelöst
  If B Then ...         // wird nicht ausgelöst
End;

Server:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Text: String;
  i: integer;

begin
  Text := Socket.ReceiveText;
  if Pos('\\', Text) = 1 then
    Memo2.Lines.Add(Text) 
  else
    Memo1.Lines.Add(TimeToStr(now) + ': ' + Text);
  For i := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    with ServerSocket1.Socket.Connections[i] do
      if connected then SendText(Text);
end;

Client:

Delphi-Quellcode:

Var
  IP: string;

begin
  Label3.Caption := IP;
  if ClientSocket1.Active then
    ClientSocket1.socket.SendText('\\' + IP);
end;

[add]
wo war der Rote Kaste ... Daaaannniiiieeellll?

[la.reunion]

Okay mach ich danke!

[la.reunion]

Irgendwie hab cih gradn hänger was is heiran falsch?
Es wird nur ncihtsmehr zum memo1 geadded.

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
    Textrec : string;
begin
    Textrec:= Socket.ReceiveText;
    Form1.Show;
if not pos('192', Textrec) = 1 then
    Memo1.Lines.Add(Textrec);
end;

Woran liegt das?

Lg La.Reunion