Hm ich habe mir den String immer umgedreht und dann ganz normal mit Pos gearbeitet... Die Länge des Strings - Die Reversed Position+1 ist das Ergebnis
Delphi-Quellcode:
function String_Reverse(S:String):String;
var
i: Integer;
begin
Result:='';
for i:=Length(S) downto 1 do
begin
Result:=Result+Copy(S,i,1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyStr: String;
MyPos: Integer;
begin
MyStr:=String_Reverse(Edit1.Text);
MyPos:=Pos('$',MyStr);
ShowMessage('Die Position: '+IntToStr(Length(Edit1.Text)-MyPos+1));
end;
Naja wahrscheinlich hab ich mir das etwas zu kompliziert gestaltet
