Problem mit Pos()

[Ramox]

Hiho,
ich hab heut seid langem mal wieder angefangen ein wenig mit Delphi zu programmieren, aber als ich da

Delphi-Quellcode:

while Pos('#', helpstr) > 0 do
           begin
                win[j]:=strtoint(copy(helpstr,1,pos('#',helpstr)));
           end

eingegeben habe, heiß es, ein Semikolon oder ein Operator würde fehlen.

Ich habe alles versucht, aber komme net auf meinen Fehler.

Hoffe ihr könnt mir helfen.

[Christian Seehase]

Moin Ramox,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Wenn ich das richtig sehe, fehlt ein ; hinter dem end.
Der Rest sieht syntaktisch richtig aus.

[EDIT]
Ausserdem müsste es

Code:

win[j]:=strtoint(copy(helpstr,1,pos('#',helpstr)[color=red][b]-1[/b][/color]));

heissen, da sonst StrToInt vor die Wand läuft.
Das steht ohne -1 am Ende des per Copy erzeugten Strings.
[/EDIT]

[Ramox]

Hallo danke für die schnelle Antwort.

Aber das Problem ist nicht bei dem 'end' sondern bei hinter 'Pos('

ich habe es in einem anderen Projekt auch getestet mit, aber da funktioniert das alles weiß jemand woran das liegen könnte?

Edit: und das mit dem -1 hab ich mir auch gedacht, aber der fehler ist ja schon vorher.

[marabu]

Hallo,

kann es sein, dass du eine Variable mit dem Namen Pos deklariert hast? Der Compiler kann dann die Funktion Pos() nicht sehen.

Grüße vom marabu

[Ramox]

pos:Array[-1..10, 0..18] of char; Jippi, danke hab an dem Code auch schon lange net mehr gearbeitet, also hatte ich das ga net mehr im Kopf.

Vielen Dank an alle, die sich darüber Gedanken gemacht habn und mir helfen wollten bzw. geholfen haben.

MfG Ramox

[pszopp]

Hallo Ramox,

so wie es aussieht hast du dir eine Endlos-Schleife gebaut.
Die Variable "helpstr" bleibt ja innerhalb der while-Schleife konstant.
Wenn also die Bedingung am Start der Schleife true ist, wird sie immer true bleiben.
Hier mein Vorschlag:

Delphi-Quellcode:

procedure Split1(aValue : string);
begin
  while Pos('#', aValue) > 0 do
  begin
    // Integer-Wert kopieren
    win[j] := StrToInt(Copy(aValue, 1, Pos('#', aValue) - 1));
    // Integer-Wert aus der Variablen entfernen.
    aValue := Copy(aValue, Pos('#', aValue) + 1, MaxInt);
  end;
end;

!!Dabei ist jedoch zu beachten, dass die letzte Zahl nur übernommen wird, falls sie mit # abgeschlossen wird!!

Viele Grüße,
pszopp

[Ramox]

Huhu pszopp,

danke auch dafür, aber ich war noch net fertig damit, wollte nur erst einmal das erste Problem lösen.

habe nun

Delphi-Quellcode:

while Pos('#', helpstr) > 0 do
           begin
                win[j]:=strtoint(copy(helpstr,1,pos('#',helpstr)-1));
                helpstr:=copy(helpstr,pos('#',helpstr)+1,length(helpstr)-pos('#',helpstr));
                loos[j]:=strtoint(copy(helpstr,1,pos('#',helpstr)-1));
                helpstr:=copy(helpstr,pos('#',helpstr)+1,length(helpstr)-pos('#',helpstr));
           end;

[Nuclear-Ping]

j wird nicht erhöht. ^^

[Ramox]

Doch, in der schleife davor, is ja net nur so kurz der Code.