Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

AJUDA !!! Encontre agências semelhantes


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

function SelectChars (s: ShortString; a: Inteiro; b: Inteiro): ShortString;
var
i: inteiro;
ts: ShortString;
tp: PChar;
começar
ts: = "";
StrPCopy (tp, s);
para i: = a para a + b do ts: = ts + tp [i];
Resultado: = ts;
end;

Esta função não pode digerir sentenças muito longas, mas (Função) imediatamente à vista de frases longas mata meu programa
Como posso consertar isso ???
Obrigado por você em breve !!!



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

Bem, por que usar ShortString
use String



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

Com o String, o programa também morre, eu claramente não tento nada, ele não sai, talvez haja outra função ou opção de como apagar o que é necessário do texto ???



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

1. Memória para PChar não está alocada.
2. Por que o PChar está aqui?
3. Por que esse recurso é necessário? Se isso estiver copiando uma substring,
Copiar função (S; Index, Count: Integer): string;



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

Ah ... você me entendeu mal!



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

E no que eles não entenderam? Por que essa coisa toda é necessária, explique?



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

Bem, digamos que eu tenha um texto longo e preciso verificar ou inserir apenas as duas primeiras letras.
-memo1.lines.add (SelectChars ("pedaço de texto longo", 0,1))
isto é, como você entende, apenas duas letras de 0 para 1 terão que ser escritas no memo, e essa função funciona bem, mas não com texto longo, o limite é em algum lugar 255, mas o que limita é malsucedido.



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

memo1.lines.add (Copiar ("um pedaço de texto longo", 1,1)) - por que você não está tão feliz? faz o que você precisa, e sem "truques" adicionais



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


eles já disseram sobre a função Copy.
e no seu, exceto para 5 dos erros especificados, o atalho de retorno é descrito,
e Resultado - PChar



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

OBRIGADO MUITO OBRIGADO POR AJUDA !!! Agora tudo funciona como deveria.



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.58 MB
Hora: 0.042 c
6-22266
PHN
2001-10-02 14:50
2002.01.08
Conectar


1-22020
Leo ^ Sun
2001-12-18 07:08
2002.01.08
TMemo


1-22044
Eduard
2001-12-10 10:09
2002.01.08
quadro


14-22334
Alex_A
2001-11-03 12:14
2002.01.08
GRÁFICOS !!!!!!!!! IMPORTANTE !!!!!!!!!!!!!!!!! HELP !!!!!!!!!!!!!!!!


3-21940
Serik
2001-12-05 09:15
2002.01.08
Interbase e VisualC ++





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol