casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

AIUTO !!! Trova rami simili


Alligator   (2001-12-17 11:46) [0]

function SelectChars (s: ShortString; a: Integer; b: Integer): ShortString;
var
i: intero;
ts: ShortString;
tp: PChar;
iniziare
ts: = "";
StrPCopy (tp, s);
per i: = a a a + b do ts: = ts + tp [i];
Risultato: = ts;
fine;

Questa funzione non può digerire frasi molto lunghe. (Funzione) immediatamente alla vista di frasi lunghe uccide il mio prog.
Come posso risolvere questo ???
per presto GRAZIE !!!



gek   (2001-12-17 11:51) [1]

Bene, perché usare ShortString
usare String



Alligator   (2001-12-17 12:26) [2]

Con il prog String muore anche io, chiaramente non provo nient'altro, può esserci un'altra funzione o opzione come strappare quello che ti serve dal testo ???



McSimm   (2001-12-17 12:38) [3]

1. La memoria per PChar non è allocato.
2. Perché PChar è qui?
3. Perché preoccuparsi di questa funzionalità? Se sta copiando una sottostringa, allora
function Copy (S; Index, Count: Integer): string;



Alligator   (2001-12-17 12:57) [4]

Ah ... mi hai frainteso!



gek   (2001-12-17 13:01) [5]

E cosa non hanno capito? Perché tutto questo business è necessario, spiega?



Alligator   (2001-12-17 13:34) [6]

Bene, diciamo che ho un pezzo di testo lungo e ho bisogno di controllare o incollare solo le prime due lettere.
-memo1.lines.add (SelectChars ("long text chunk", 0,1))
Vale a dire, come si capisce, nel memo devono essere immesse solo due lettere, che iniziano con 0 e finiscono con 1, e questa funzione funziona bene, ma non con un testo lungo, il limite è da qualche parte nei caratteri 255, ma quello che faccio è il limite.



Digitman   (2001-12-17 13:37) [7]

memo1.lines.add (Copia ("un pezzo di testo lungo", 1,1)) - beh, cosa c'è di così scomodo per te? facendo quello che ti serve, e senza ulteriori "fronzoli"



Mbo   (2001-12-17 13:41) [8]


sulla funzione di copia già detto.
e nel tuo, oltre agli errori specificati da 5, viene descritta la stringa di ritorno,
e Risultato - PChar



Alligator   (2001-12-17 18:38) [9]

GRAZIE MOLTO GRAZIE PER AIUTO !!! Ora tutto funziona come dovrebbe.



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.58 MB
Ora: 0.025 c
4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Comandi della stampante Epson


1-22064
Tao
2001-12-19 08:46
2002.01.08
реестр


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
Copia negli appunti


14-22322
spesso
2001-11-03 14:10
2002.01.08
Chi lo farà? È utile a tutti.


1-22183
Xen
2001-12-21 11:21
2002.01.08
DelphiX_play





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Lezioni Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo