Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Conversione Metodi Delphi -> C#
Forum - C# / VB.NET - Conversione Metodi Delphi -> C#

Avatar
criscap1985 (Normal User)
Newbie


Messaggi: 11
Iscritto: 15/04/2014

Segnala al moderatore
Postato alle 8:46
Mercoledì, 16/04/2014
Salve,

sono un pò incasinato per alcune funzioni che sono metodi originari del Delphi. Avrei bisogno di convertire il seguente metodo:

Codice sorgente - presumibilmente Delphi

  1. procedure SplitEleViv(StringaDaSplittare, CarattereSplit: string; var StringListDestinazione: TStringList);
  2. var
  3.   sds, str: string;
  4.   ii: Integer;
  5. begin
  6.   StringListDestinazione.Clear;
  7.   str := '';
  8.   ii := 1;
  9.   sds := StringaDaSplittare;
  10.   if StrLeft(sds, 1) <> CarattereSplit then
  11.     sds := sds + CarattereSplit;
  12.   while ii <= length(sds) do begin
  13.     if copy(sds, ii, 1) <> CarattereSplit then
  14.       str := str + copy(sds, ii, 1)
  15.     else begin
  16.       StringListDestinazione.Add(str);
  17.       str := '';
  18.     end;
  19.     inc(ii);
  20.   end;



Codice sorgente - presumibilmente Delphi

  1. function ImpostaDecimali(Value: string; Dec: Integer; Sep: Char): string;
  2.   var
  3.     xFiltro: string;
  4.   begin
  5.     if Dec > 0 then
  6.       xFiltro := '0.' + Replicate('0', Dec)
  7.     else
  8.       xFiltro := '0';
  9.     result := ChrSwap(FormatFloat(xFiltro, StrToDoubleDefEv(Value, 0)), DecimalSeparator, Sep);
  10.   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
  


Se frequenti il forum dovresti personalizzare la tua firma.
PM Quote
Avatar
criscap1985 (Normal User)
Newbie


Messaggi: 11
Iscritto: 15/04/2014

Segnala al moderatore
Postato alle 14:52
Giovedì, 17/04/2014
Bene. Purtroppo mi sono dovuto arrangiare da solo.
Per chi è interessato posterò la soluzione.  :pat:
Grazie.


Se frequenti il forum dovresti personalizzare la tua firma.
PM Quote