Solo per darvi notizia di un piccolo successo, perchè dopo 2 giorni di indagini conoscitive e prove, sempre deludenti, questa mattina avevo cominciato a scrivere una richiesta di aiuto.
Si ero arreso di fronte alle difficoltà incontrate per formattare un dato numerico, sempre di 9 cifre, secondo la seguente maschera:
x.xx.xxx.xxx.
Poi, questo pomeriggio ho pensato di fare così:
function EditaCoVoce(coVoce:integer):String;
var
i: Integer= 0;
coVoceStr: String;
crt: char;
StriEdit: string;
begin
SetLength (coVoceStr, 9);
coVoceStr:=IntToStr(coVoce);
WriteLn();
WriteLn('coVoceStr= ', coVoceStr);
for i:= 1 to 9 do
begin
crt := coVoceStr[i];
StriEdit:= StriEdit + crt;
case i of
1,3,6:
StriEdit:= StriEdit + '.';
end;
end;
WriteLn();
WriteLn('StriEdit= ', StriEdit);
Result:= StriEdit;
end;
coVoceStr= 101413000
StriEdit= 1.01.413.000
Quella appena scritta è la mia prima utility che ora dovrò cercare di salvare diversamente nel mio primo progetto. :D ;)