Problem mit Pos()

[himitsu]

@Minz

Aus der OH:

Zitat:

function Copy(S; Index, Count: Integer): string;

Gibt Count mehr Zeichen oder Array-Elemente an, als verfügbar sind, werden nur die Zeichen oder Elemente von S[Index] bis zum Ende von S zurückgegeben.

[sharkx]

hmm, eben doch nicht ...

ich geb mal nen paar Content Strings mit an und deren Ergebniss nach dem Parsen

Delphi-Quellcode:

sharkx: .help
        ^-------------------- Das ist der String Content, daraus wurde ...
Parse Commands: 
Parse Text: .help

sharkx: .stats
Parse Commands: 
Parse Text: .stats

sharkx: .add noob
Parse Commands: .add
Parse Text: noob
^---------------------------- So ist es richtig

Delphi-Quellcode:

  
  TextPos     := Pos(' ', Content);
  Text        := Trim(Copy(Content, CommandPos+1, length(Content)-CommandPos));

  CommandPos  := Pos(' ', Content);
  Commands    := Trim(Copy(Content, 1, CommandPos-1));

[EDIT]

*Kopfklatsch*
Das problem ist, ich weiß nichtmal ob ich überhaupt ein Leerzeichen übergeben bekomme! Also kann ich ja auch nicht immer danach suchen. Selbst dieser Punkt ist bicht immer da (.add). Also hab ich praktisch überhaupt keinen ansatz nachdem ich suchen könnte :/

[scp]

Zitat:

Zitat von Minz

weil du gibst ja die Länge an, die gelesen werden soll
daher darfs nicht length(content) sein! sonst versuchst du
ab dem Trennzeichen die ganze Länge von Content zu kopieren.

Zitat:

Zitat von Delphi-Hilfe

Gibt Count mehr Zeichen oder Array-Elemente an, als verfügbar sind, werden nur die Zeichen oder Elemente von S[Index] bis zum Ende von S zurückgegeben.

[himitsu]

Also nach diesem Aufbau?

Name: .Commands Text
Name: Commands Text

Name:.Commands Text
Name:Commands Text

Name: .Commands
Name: Commands

Name:.Commands
Name:Commands

[scp]

Dann musst du halt If verwenden:

Delphi-Quellcode:

If (Pos(' ', Content) > 0) then
  begin
    // Normaler Code
  end
else
  begin
    Command := Content;
    Text := '';
  end;

[sharkx]

endlich .. schwere geburt .. vielen dank :)