veja se te server
117 - Quebra de String
Nesta dica iremos mostrar uma função que cria uma lista de strings baseado numa
cadeia de string, quebrando-a onde encontrar um caractere predeterminado. Por
exemplo:
Uma string como 'O céu é azul', escolhendo o caracter espaço (' ') para
quebrar, seria tranformado em uma lista de strings que, colocada em um
componente do tipo TListBox ficaria:
O
céu
é
azul
Isto é, onde havia um espaço a string foi "quebrada".
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;
procedure TForm1.Button1Click(Sender: TObject);
var
t: TStringList;
begin
t := TStringList.create;
ListBox1.Items.Assign(sBreakApart(Edit1.Text, ' ', t));
t.free;
end;
----- Original Message -----
From: Bruno
To: Delphi-Br
Sent: Saturday, August 26, 2006 5:46 PM
Subject: [delphi-br] String em Vetor
Boa Noite,
Gostaria de saber se existe alguma função no Delphi 6 capaz de pegar uma
string e ir quebrando ela caracter por caracter para fins de colocar esses
caracteres num vetor.
Se fosse em ASP eu diria que a função procurada é a função mid , mas em
Delphi infelizmente não consegui achar.
Agradeço Antecipadamente,
Bruno.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
