|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Junior Member
Iscritto dal: Sep 2005
Messaggi: 2
|
Pascal e domande idiote ^_^'
Mi servirebbe sapere la sintassi per convertire un tipo in un altro
es: string in int So che è una domanda banale ma non riesco più a trovarla e non me la ricordo ^^' ![]() |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Mar 2004
Città: al nord
Messaggi: 3873
|
http://www2.toki.or.id/fpcdoc/ref/re...269-27500013.3
http://www2.toki.or.id/fpcdoc/ref/re...262-26800013.3 valgono anche in Turbo Pascal |
![]() |
![]() |
![]() |
#3 |
Junior Member
Iscritto dal: Sep 2005
Messaggi: 2
|
ti ringrazio ^_^
![]() ![]() Ora avrei un altro problemino, (sto usando delphi), io ho un testo, e devo fare in modo che il programma divida il testo nelle sue singole frasi e le dispogna su un array, come posso fare? |
![]() |
![]() |
![]() |
#4 |
Senior Member
Iscritto dal: Jan 2002
Città: Germania
Messaggi: 26110
|
Non ho Delphi a disposizione per poterlo testare, ma "a naso" dovrebbe essere qualcosa di simile a questo:
Codice:
procedure StringToArray(const s: string; var a: array of string); var i, j, OldLength: integer; procedure SkipSpaces; begin while (i <= Length(s)) and (s[i] = ' ') do Inc(i); end; function IsWordAvailable: Boolean; begin j := i; while (i <= Length(s)) and (s[i] <> ' ') do Inc(i); Result := i <> j; end; begin i := 1; while i <= Length(s) do begin SkipSpaces; if IsWordAvailable then begin OldLength := Length(a); SetLength(a, OldLength + 1); a[OldLength] := Copy(s, j, i - j); end; end; end;
__________________
Per iniziare a programmare c'è solo Python con questo o quest'altro (più avanzato) libro @LinkedIn Non parlo in alcun modo a nome dell'azienda per la quale lavoro Ho poco tempo per frequentare il forum; eventualmente, contattatemi in PVT o nel mio sito. Fanboys |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 22:10.