// Merkkijonon jaottelu vasemmalta 4 merkin ryhmiin välilyönneillä eroteltuna:
// Tässä käytetty tyyppiä AnsiString.
// D2009 ja uudemmat: voit halutessasi muuttaa tyypin -> String.
// Tämä on kirjoitettu näin, koska tässä tapauksessa merkkjonot ovat alunperin AnsiString -tyyppisiä
function Space4(S: AnsiString):AnsiString;
var
i,L : Integer;
begin
L := Length(S);
Result := S;
i := ( (L-1) and $ffffFFFC) 1;
while i >= 5 do begin
System.Insert(' ', Result, i);
dec(i, 4);
end;
end;
// Tässä käytetty tyyppiä AnsiString.
// D2009 ja uudemmat: voit halutessasi muuttaa tyypin -> String.
// Tämä on kirjoitettu näin, koska tässä tapauksessa merkkjonot ovat alunperin AnsiString -tyyppisiä
function Space4(S: AnsiString):AnsiString;
var
i,L : Integer;
begin
L := Length(S);
Result := S;
i := ( (L-1) and $ffffFFFC) 1;
while i >= 5 do begin
System.Insert(' ', Result, i);
dec(i, 4);
end;
end;
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.