Pessoal...Boa Tarde!!Hoje me deparei com uma necessidade que sempre tentei evitar, trabalhar com um arquivo CSV em Delphi 7.Li em muitos foruns que a partir da versao 2006 do Delphi podemos utilizar uma propriedade "StrictDelimiter" do StringList para fazer esse trabalho, o que facilitaria imensamente o nosso trabalho, contudo a necessidade de utilizar o Delphi 7 falou mais alto (Nosso chefe nao quer migrar para uma versao mais atualizada).Entao aqui vai a funcao que criei com a ajuda dos colegas dos foruns.function GetValorNaPosicao(pLinha, pDelimitador : String; pPos : Integer) : String;var iChar : Integer; vPos : Integer; Str : String;begin Str := ''; vPos := 1; for iChar := 1 to Length(pLinha) do begin if pLinha[iChar] <> pDelimitador then Str := Str + pLinha[iChar] else begin if vPos = pPos then Break else begin vPos := vPos + 1; Str := ''; end; end; end; Result := Str;end;Esta funcao leva em consideracao que voce passara a linha que contem os valores e nao todo o arquivo.Agora o restante e com voces...Abraco!! Bom dia Pessoal!A partir de hoje iniciamos os trabalhos com o Blog!Rsrsrsrsrs Gostaria de comentar aqui os ultimos fatos ocorridos em nosso "Humilde e Democratico Pais".1o - Lei contra a "Homofobia"...Minha Opiniao: Essa lei fere diretamente a credibilidade da Democracia de nosso pais. Estao dando poderes a uma minoria, que diga-se de passagem, nao tem nada a somar para a cultura ou qualquer outro tipo de atividade para a populacao. Com esta lei estao nos obrigando a aceitar coisas que nao queremos, pois a partir de agora quando houver algum atrito com um Homosexual seja por algo que nao tenha nada a ver com preconceito sempre havera uma forma de sermos processados por estarmos praticando Homofobia. Portanto acho um absurdo essa lei e sou totalmente contra.2o - Uniao Estavel de pessoas de mesmo sexo.Minha Opiniao: So um contrato entre as partes nao bastaria, um testamento ou algo do tipo... mas nao o governo tinha que vir a publico e legalizar essa infame. Isso fere diretamente os valores familiares e de boa conduta.3o Aprovacao da adocao por casais Gays.Minha Opiniao:O que o filho deste suposto casal respondera quando lhe perguntar.. "Quem e sua mae?" ou "Quem e seu pai?" e essa crianca se deparar com outras criancas que possuem pais Heterossexuais. Ja que os "Psicologos" dos direitos da crianca e adolescencia adoram se intrometer na criacao dos filhos de hoje em dia deveriam ir contra esse tipo de projeto, mas nao so estao preocupados em formar marginais preguicosos e sem utilidade para nosso futuro ja que nao se pode mais incentivar uma crianca a trabalhar e ser responsavel pelos seus proprios atos.Logo abordarei mais assuntos.Comentem. Bom pessoal navegando meio a deriva na Internet achei esse post da WowWiki que fala sobre a minha classe no Jogo World of Warcraft, esta em em Ingles mas e bastante interessante... Nada que o Google Translator nao resolva...Ta ai: http://www.wowwiki.com/ShamanAbraco!!! unit DSNFuncs;{Creditos para Oscar Noe MartinFonte pego no endereco http://www.delphi3000.com/articles/article_3584.asp?SK=Comentarios traduzidos por Jullian Henrique Moreira23/09/2011}interfaceUses Windows, Classes, SysUtils, Registry;Type TDSN_Type = (dtUSER, dtSYSTEM); TDSN_Types = Set