Einzelnen Beitrag anzeigen

Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Verschiebung der Zeichen eines Strings !HILFE!

  Alt 6. Nov 2012, 23:19
Ich denke mal, dass es eher auf eine einfache Lösung einer Aufgabenstellung mit Strings ankommt...

Vielleicht hilft Dir das ungefähr weiter (ungetestet auf die Schnelle):

Delphi-Quellcode:
function MoveString(S: String; P: Integer; ToLeft: Boolean);
var
  L: Integer;
begin
  if S = 'then
    Exit('');
  if (P < 1) or (P > 8) then
    Exit('');
  if P = 0 then
    Exit(S);
  L := Length(S);
  if ToLeft then
    Result := Copy(S, P + 1) + Copy(S, 1, P)
  else
    Result := Copy(S, L - P) + Copy(S, 1, P - 1);
end;
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat