Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

[SirThornberry]

wo genau liegt jetzt dein Problem? Die Lösung hast du ja bereits beschreiben. Fertigen Code werden wir dir nicht geben. Wie sieht dein bisheriger Code aus und was funktioniert daran anders als erwartet?

[hoan504]

moment da muss ich jetzt erst schaffen den code wieder von meinem Server zu ziehen

[hoan504]

ist es denn wenigstens möglich mir einen Tipp zu geben welche Schleife ich am besten nehmen sollte

[s.h.a.r.k]

Wenn wir dir jetzt sagen, dass es mit allen drei (for/repeat/while) geht, wirst du nicht wirklich glücklicher damit werden Fang doch einfach mal mit einer davon an und überleg dir, wie es gehen könnte. Kommst du nicht weiter, dann poste hier und wir versuchen dir zu helfen.

[himitsu]

Überleg dir ja erstmal, wie du es "manuell" machen würdest.

Da könnte man sich nun Scrabble-Steine nehmen, daraus zwei "Strings" zusammenstellen und sich dann überlegen, wie man am einfachsten vorgeht.

Dann schreibt man sich z.B. einen Ablauflan auf und versucht anschließend daraus einen Code zu entwickeln.

Als Schleife(en) kann man sich nur für While oder For-To entscheiden.
Repeat-Until ginge auch, aber es wäre hier wohl einfacher, wenn man die Schleifenbedingung erst prüft, bevor man darin was abarbeitet, aber zusammen mit einem If-Then ginge auch das Repeat.
Außerdem kann man nun die Strings zeichenweise verglichen, über s[i] , oder man geht z.B. über Copy oder Dergleichen.

[hoan504]

Hier erstmal mein Quellcode:

function ipos (Const Substr : string; s : String) : integer;
Var i,j : integer;
begin
ipos := 0;
If (length(substr) = 1) then
begin
for i:=1 to length(s) if (s[i]= Substr) then ipos := i;
end
else
If (length(substr) > 1) then
begin
for i:=1 to length(s) do
if (s[i]= Substr[1]) then
for j:=2 to length(substr) do
if (substr[j] = s[i+1]) then ipos := i
else
ipos := -1;
end;
end;

funktioniert so erstmal ganz gut, aufgrund der for-schleife gibt es nur ein Problem: es wird immer die letzte stelle geliefert an der etwas gefunden wurde.
Wie kann ich denn die For - Schleife verlassen sobald der if-befehl erfüllt ist?

[-187-]

Exit ?

PS: Setz dein Code mal in Delphi Tags und formatier ihn ordentlich^

[himitsu]

For-Downto, Exit oder Break

[omata]

Zitat von hoan504:

Wie kann ich denn die For - Schleife verlassen sobald der if-befehl erfüllt ist?

Wenn man eine Schleife vorzeitig beenden möchte, dann benutzt man eine kopf- oder fussgesteuerte Schleife. Also garantiert keine FOR-Schleife, sondern WHILE oder REPEAT.