Cria uma nova aplicação console e faça um copy-and-paste (copiar e colar) do
código a seguir, depois execute-o. Nele, vc terá um bom exemplo de uso de
TStringList e suas propriedades Delimiter e DelimitedText. Isso pode resolver
muito bem, e de forma bem elegante o seu problema.
<>
program TestDelimiters;
{$APPTYPE CONSOLE}
uses
Classes, SysUtils;
begin
with TStringList.Create do
try
Delimiter := '-';
DelimitedText := 'LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA';
repeat
WriteLn(Strings[0]);
Delete(0);
until Count = 0;
finally
Free;
end;
WriteLn('Pressione ENTER...');
WriteLn(Eoln);
end.
<>
Maiores detalhes pra entender este pequeno exemplo, consulte o help do Delphi
sobre as propriedades de TStringList usadas neste exemplo.
Sds.
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 13 Feb 2008 23:54:23 -0200
Subject: [delphi-br] Separar tirulo de eritora + importação
Olá pessoal,
estou com um pequeno problema aqui, tenho um arquivo texto com 4 mil
registros de livros e os campos titulo e editora estão juntos exemplo: O
LIVRO DOS ESPIRITOS - EDITORA IDE/BOA NOVA.
Gostaria de saber se tem como criar uma função ou procedure para retornar os
dois separados?
O LIVRO DOS ESPIRITOS
EDITORA IDE/BOA NOVA
Agradeço desde já;
Att
Rodrigo
Skype rodrigo_marchiori
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.20.4/1275 - Release Date: 12/2/2008
15:20
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
