Oppure

Loading
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:


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 :k:

Cordialmente :hail:

Cristian Capannini
aaa
17/04/14 12:52
criscap1985
Bene. Purtroppo mi sono dovuto arrangiare da solo.
Per chi è interessato posterò la soluzione. :pat:
Grazie.
aaa