Forum: Object-Pascal / Delphi-Language
by MicMic,
10. Mai 2020
Jedenfalls mit meiner "TabToRight" bin ich jetzt zufrieden. Anfangs war's ja noch alles mit "SetLength". Auch alles recht übersichtlich jetzt und für meinen Anwendungszweck supi.
Forum: Object-Pascal / Delphi-Language
by MicMic,
10. Mai 2020
Uwe meinte aber, es geht bei ihm so :)
Forum: Object-Pascal / Delphi-Language
by MicMic,
10. Mai 2020
Bei mir geht RotateRight nicht. Ich habe diese 10.3 Community Version
Ich bin mit meinem "...Right" zufrieden. Trotzdem Danke
Procedure TabToRight(Var A:TArray<String>);
Var S : String;
Begin
S := A;
Insert(S, Splitted, 0);
Delete(A,Length(A)-1,1);
End;
Forum: Object-Pascal / Delphi-Language
by MicMic,
9. Mai 2020
Die eine Richtung mit:
SetLength(A,Length(A)+1);
Insert(A, A, 0);
Delete(A,Length(A)-1,1);
SetLength(A,Length(A)-1);
die nur mit "SetLength+1" und "SetLength-1" geht, habe ich geändert.
Nur ein:
Forum: Object-Pascal / Delphi-Language
by MicMic,
8. Mai 2020
Hmm, in der 2. Variante von "nach links verschieben" habe ich auch SetLength+1 aber kein SetLength-1. Aber das geht so.
Wenn ich für "nach rechts verschieben" die beiden SetLength's rausmache, dann verschiebt er aber nicht richtig die Inhalte.
Aber mal zur Info: Ich habe ein String "Dies,Das,Auto,Flugzeug,irgendwas" und mein Array fülle ich dann mit "a:=stringvariable.Split()".
Forum: Object-Pascal / Delphi-Language
by MicMic,
8. Mai 2020
Danke für die vielen Antworten.
Ich will es noch mit meinem "TArray<String>" probieren. Trotzdem Danke @Medium für die Info TList.
Ich habe jetzt "nach links verschoben" getestet und es geht:
Insert(A, A, Length(A));
Delete(A,0,1);
// oder auch so:
Forum: Object-Pascal / Delphi-Language
by MicMic,
7. Mai 2020
Hallo,
ich habe ein "a:TArray<String>".
Gibt's da vielleicht irgendein Befehl, um den Inhalt nach links und rechts zu versetzen?
Beispiel:
a:='Auto';
a:='Fahrrad';
a:='Flugzeug';
Ich möchte z.B. mit einer Prozedur "nachlinks(a)" oder "nachrechts(a)" erreichen, dass der Inhalt entsprechend neu gesetzt wird. Um ein Beispiel für "nachlinks(a)" zu geben.