16/04/14 6:46
criscap1985
Salve,
sono un pò incasinato per alcune funzioni che sono metodi originari del Delphi. Avrei bisogno di convertire il seguente metodo:
Sono più interessato a capire i seguenti metodi:
copy(sds, ii, 1)
ChrSwap(FormatFloat(xFiltro, StrToDoubleDefEv(Value, 0)), DecimalSeparator, Sep);
StrLeft(sds, 1)
Replicate('0', Dec) <-- questo non sono riuscito a trovarlo neanche su google possibile??!
Grazie
Cordialmente
Cristian Capannini
sono un pò incasinato per alcune funzioni che sono metodi originari del Delphi. Avrei bisogno di convertire il seguente metodo:
procedure SplitEleViv(StringaDaSplittare, CarattereSplit: string; var StringListDestinazione: TStringList); var sds, str: string; ii: Integer; begin StringListDestinazione.Clear; str := ''; ii := 1; sds := StringaDaSplittare; if StrLeft(sds, 1) <> CarattereSplit then sds := sds + CarattereSplit; while ii <= length(sds) do begin if copy(sds, ii, 1) <> CarattereSplit then str := str + copy(sds, ii, 1) else begin StringListDestinazione.Add(str); str := ''; end; inc(ii); end;
function ImpostaDecimali(Value: string; Dec: Integer; Sep: Char): string; var xFiltro: string; begin if Dec > 0 then xFiltro := '0.' + Replicate('0', Dec) else xFiltro := '0'; result := ChrSwap(FormatFloat(xFiltro, StrToDoubleDefEv(Value, 0)), DecimalSeparator, Sep); end;
Sono più interessato a capire i seguenti metodi:
copy(sds, ii, 1)
ChrSwap(FormatFloat(xFiltro, StrToDoubleDefEv(Value, 0)), DecimalSeparator, Sep);
StrLeft(sds, 1)
Replicate('0', Dec) <-- questo non sono riuscito a trovarlo neanche su google possibile??!
Grazie
Cordialmente
Cristian Capannini
aaa