Desmenbrar Texto em um Memo! Ajuda Por Favor

Question

[b:3562d3ecf4]2 Vezez no Mesmo dia � muito n�??[/b:3562d3ecf4]Eu estou precisando muito da ajuda de voc�s denovomais dessa vez n�o � nada NB - Pelo menos eu acho ^^� o seguinteEu tenho um texto em num...

Marco Salles · Answer

Codigo Baseado nas sua informa��es e seguindo crit�rios de sues texto inicial .

var
 Lista:TStringList;
 i,tamanho,PosInicial,Pos:integer;
 Texto:String;
begin
 lista:=TStringList.Create;
 for i:=0 To Memo1.Lines.Count - 1 do
   begin
     texto:=Memo1.Lines.Strings[i];
     tamanho:=Length(texto);
     posInicial:=1;
     for Pos:=1 to Tamanho do
       begin
         if texto[Pos] = �,� then
           begin
            lista.Add(copy(texto,posInicial,Pos-PosInicial));
            PosInicial:=Pos+1;
           end;
       end;
     lista.Add(copy(texto,posInicial,Pos-PosInicial));
   end;
 Memo1.Lines.Clear;
 Memo1.Lines.AddStrings(Lista);
 Lista.Free;

Gabezinh@ · Answer

[color=red:1e1a502ffb][b:1e1a502ffb]BlIgAdAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAa[/b:1e1a502ffb][/color:1e1a502ffb]

Era isso mesmo
So preciso agora fazer umas pequenas altera��es
Pq ai ta adicionando todos os itens na lista
Eu quero so um item de cada vez

Creio eu que vai ficar alguma coisa mais ou menos assim:

var
 Lista:TStringList;
 i,tamanho,PosInicial,Pos:integer;
 Texto:String;
begin
 Memo1.Lines.LoadFromFile(�C:\teste.txt�);
 lista:=TStringList.Create;
 for i:=0 To Memo1.Lines.Count - 1 do
   begin
     texto:=Memo1.Lines.Strings[i];
     tamanho:=Length(texto);
     posInicial:=1;
     for Pos:=1 to Tamanho do
       begin
         if texto[Pos] = �,� then
           begin
            lista.Add(copy(texto,posInicial,Pos-PosInicial));
            PosInicial:=Pos+1;
           end;
       end;
     lista.Add(copy(texto,posInicial,Pos-PosInicial));
     Memo2.Clear;
     Memo2.Lines.AddStrings(Lista);
     Lista.Clear;
   end;
 Lista.Free;
end;

Muito obrigada Nino
Te +

F�rum Desmenbrar Texto em um Memo! Ajuda Por Favor #356538