2 replies to this topic

[proteus_adi]

COMO EU FAÇO PRA DESMEMBRA UM TMEMO TIPO UMA MATRIS,
PARA TESTAR ESTES VALORES, VER SE HÁ OCORRENCIA DE CERTA PALAVRA.........

OU SE DEVO FAZER ISSO DE OUTRO JEITO

[proteus_adi]

consegui algo parecido com um

while pos< length(richedit1.text) do...

alguem ai tem uma outra ideia?

[The Tamer]

Já tentou fazer uma "quebra de strings"?

Usando o caracter espaço " " para definir o local da quebra?

O Código abaixo faz a quebra de uma String, você coloca a String, depois o char de quebra, (o espaço) e no caso, esta função pede o Objeto TStringList... pois ele joga o texto quebrado 1 em cada linha da StringList, aí vc pode adaptar o código abaixo para jogar em um vetor, etc...

function sBreakApart(BaseString, BreakString: string; StringList: TStringList): TStringList;
var
EndOfCurrentString: byte;
TempStr: string;
begin
repeat
EndOfCurrentString := Pos(BreakString, BaseString);
if EndOfCurrentString = 0 then
StringList.add(BaseString)
else
StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
BaseString := Copy(BaseString, EndOfCurrentString + length(BreakString), length(BaseString) - EndOfCurrentString);
 
until EndOfCurrentString = 0;
result := StringList;
end;

Vc pode chamar a função assim:

procedure TForm1.Button1Click(Sender: TObject);
var
t: TStringList;
begin
t := TStringList.create;
ListBox1.Items.Assign(sBreakApart(Edit1.Text, ' ', t));
t.free;
end;