|
|||||||
|
|
|
![]() |
|
|
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: 09:09.



















