Hallo,
ich brauche unbedingt Hilfe, im Internet habe ich sonst nichts gescheites gefunden...
Derzeit versuche ich vergeblich Unterstriche in ein String einzufügen, natürlich in bestimmter Reihenfolge!
Aber erst einmal zur Problemstellung:
Nach Eingabe einer Zeichenkette von max. 128 Zeichen soll nach Betätigung des Buttons alle 4 Zeichen ein Unterstrich eingefügt werden!
Meine bisherige Lösung sieht wie folgt aus:
Code:
procedure TForm1.unterstrich(text:string);
var i:integer; var textn:string;
begin
textn:=text;
for i:=1 to length(textn) do
begin
if ((i mod 3) = 0) then
begin
insert('_', textn, i);
end;
end;
label2.caption:=textn;
end;
Wie ihr sicher unschwer erkennen könnt habe ich das Hauptproblem, dass er durch das einfügen der Unterstriche die Zeichenkette verschiebt & die Zählschleife nicht mehr bis an die letzten Zeichen 'heranreicht'... Hatte überlegt, ob das evtl. iterativ lösbar ist. Habe nur keine Idee wie..
Wäre für jegliche Hilfe hierbei dankbar!