F�rum Como separar os nomes de um arquivos no listview? Entre um car�cter?? #606465

07/11/2019

Ol� amigos bom dia.
Estou com um projeto j� algum tempo, mas estou atualizando ele para maiores informa��es na empresa, o que preciso �: quando importar os arquivos (nomes) da m�sica para o listview, ele separe o artista do t�tulo, ou por exemplo em uma coluna ele coloca o que est� antes do car�cter -, e na outra o t�tulo, ele coloca o que est� depois do car�cter -

por exemplo

Blitz - A Dois passos do para�so

coluna 1 coluna 2
Blitz A dois passos do para�so

Agradeceria muito pela ajuda desta fun��o.
Obrigado a todos.

J�nior Pinheiro

Curtir t�pico

+ 0

Responder

Posts

25/11/2019

J�nior Pinheiro

Problema resolvido.

function artista(pStrValue: string): string;
var
  sArtista : string;
  i: Integer;
begin
  if sArtista = '' then
     begin
       result := copy (pStrValue,1, Length(pStrValue)-4);
       for I := 1 to length(pStrValue) do
         begin
           if ((pStrValue[i] = '-') and
               (pStrValue[i-1] = ' ') and
               (pStrValue[i+1] = ' ')) then
            begin
              if length(pStrValue) > (i+4) then
                 begin
                   result := trim(copy (pStrValue,1,i-1))
                 end;
            end;
         end;
     end;
end;

Responder

Gostei + 0

27/11/2019

J�nior Pinheiro

Agrade�o pela ajuda.
Resolvido.

Problema resolvido.

function artista(pStrValue: string): string;
var
  sArtista : string;
  i: Integer;
begin
  if sArtista = '' then
     begin
       result := copy (pStrValue,1, Length(pStrValue)-4);
       for I := 1 to length(pStrValue) do
         begin
           if ((pStrValue[i] = '-') and
               (pStrValue[i-1] = ' ') and
               (pStrValue[i+1] = ' ')) then
            begin
              if length(pStrValue) > (i+4) then
                 begin
                   result := trim(copy (pStrValue,1,i-1))
                 end;
            end;
         end;
     end;
end;

Responder

Gostei + 0