LorenaMorena

Alguém sabe um jeito fácil de dar exports em uma unit inteira de procedures e functions? são muitas functions para mim fazer manualmente o export rsrs.. Obrigado !

Resolvido !!Havia postado como eu tinha resolvido mas parece que não foi então vamos la denovo.. Eu simplismente fiz um loop de 0 para contador de strings na stringlist que tem o procedimento de adicionar ao resultado da função o result da função + a linha da string list ..Segunda eu posto o código , não o pussuo em mãos.

Amigão você é fera!! Obrigado mesmo!! Questão resolvida asim: Function RandomFileName:String; Begin IRandom:= IRandom+1; if FileExists(Form1.LabeledEdit2.Text+ '\' + Form1.LabeledEdit1.Text + ' '+ IntToStr(IRandom) + Extencao) then begin Result := Form1.LabeledEdit2.Text+ '\' + Form1.LabeledEdit1.Text+ ' ' + IntToStr(IRandom) + Extencao; end else begin Result := Form1.LabeledEdit2.Text+ '\' + Form1.LabeledEdit1.Text+ ' ' + IntToStr(IRandom) + Extencao; end; End; Em relação a minha outra pergunta (string list) alguém sabe?

Boa noite , estou com 2 dúvidas .. não sei se vocês sabem responder.. 1º - Estou fazendo um progama que gera um txt e salva em getcurrentdir...Mas eu gostaria de não salvar (rewrite) em cima do arquivo existente.. então gostaria de fazer uma função que verificasse se já tem um arquivo na pasta , se tiver ele pega o nome do arquivo e adiciona +1 (INTEGER).. exemplo: Documento de texto 1.txt, opa minha função vai verificar este arquivo e vai fazer outro mas assim : Documento de texto 2.txt , Documento de texto 3.txt, Documento de texto 4.txt e assim vai ^^ 2º - gostaria de saber se há algum jeito de fazer minha função receber como result o valor que é gerado em uma stringlist... o resultado será a as strings da stringlist..entenderam.. bom acho que é isto!! Obrigado a todos!

Deicha eu te pergutnar uma coisa, tem como ao invés de ficar procurando string por string no evento Onreplace para chamar a caixa para procurar strings, fazer um processo automatizado? para não presisar ficar procurando e digitando nenhuma string.. porque as strings já estao em um listbox ... to querendo automatizar o processo de troca de strings, mas só falta o whole words manow. vou ter que trocar meu modo de trocar strings e implementar este tfindreplace dialog só por causa disto... disto o que ? exemplo.. ESTE é O RICHEDIT DosHeader :TImageDosHeader ; IMAGINE O LISTBOX AO LADO: COM ESTE UNICO ITEM DosHeader <-- ESTA é A STRING QUE EU ESCOLHI PARA MODIFICAR NO RICH Quando eu clico no botao de mudar string o que acontece? isto: STRINGMUDADA :TImageSTRINGMUDADA ; REPARE O TIMAGE , POR ISSO EU QUERO WHOLEWORDS .. Obrigado pela sua ajuda! Desculpe pela ignorancia minha ^^

Olá amigão .. Estou me matando aqui , como disse sou iniciante . Porém se eu conseguir alguma coisa eu posto a solução para todos ok? Estou desesperando!! OBS: aceito mais ajudas ^^ Antes de você postar, tentei algo do tipo: Procedure FindReplace (const Procura, Substitui: String; Var Texto: TRichEdit); Var i, Posicao: Integer; TodasLinhas: string; Begin For i := 0 to Texto.Lines.count - 1 do begin TodasLinhas := Texto. Lines[i]; Repeat Posicao:=Pos(Procura,TodasLinhas); If Posicao > 0 then //se encontra palavra Begin if Length(Procura) <> Length(Procura) then //se o tamanho de caracteres for diferente do tamanho de caractere do que eu to procurando... begin //mas não deu xD Exit; end else if Length(Procura) = Length(Procura) then Delete(TodasLinhas,Posicao,Length(Procura)); //deleta o que ta procurando Insert(Substitui,TodasLinhas,Posicao); //substitui na posicao da linha Texto.Lines[i] := TodasLinhas; end; //end; until Posicao = 0; end; end; Muito obrigado pelo seu breve retorno . Abraço

Boa Tarde a todos! Primeiramente, sou iniciante.. Bom , estou fazendo um progama , que esta ficando show de bola galera.. este progama tem a função de trocar as strings de uma lista , de um arquivo de texto.. Estou atualmente usando a seguinte função para trocar strings em um RichEdit... // Faz a procura e substitui uma String no campo memo. // Exemplo :: FindReplace(Edit1.Text,Edit2.Text, Memo1); Procedure FindReplace (const Enc, subs: String; Var Texto: TRichEdit); Var i, Posicao: Integer; Linha: string; Begin For i := 0 to Texto.Lines.count - 1 do begin Linha := Texto. Lines[i]; Repeat Posicao:=Pos(Enc,Linha); If Posicao > 0 then //se encontra palavra Begin Delete(Linha,Posicao,Length(Enc)); //deleta Insert(Subs,Linha,Posicao); Texto.Lines[i] := Linha; end; until Posicao = 0; end; end; ai na hora de trocar eu faço assim!: FindReplace(ListBox1.Items.Strings[i],Listbox2.Items.Strings[i],richedit1); //TROCA STRING Resumo do meu progama: 2 listbox, o 1º serve para add str, o 2º serve para confirmar só e ilustrar xDDD! Ok! Atualmente funciona perfeitamente!! ele pega do primeiro Listbox1 e trocar pelo Listbox2 as strings... Mas eu queria apenas mais uma coisinha nesta função que é meu motivo de vinda até aqui!!! Sabe a opção frWholeWord e a opção frMatchCase? Então , gostaria de implementar essas 2 funçãozinhas no meu procedimento de alterar string!!! Mas infelizmente não estou conseguindo . Será q alguém pode me enviar um dica? Muito Obrigado , tenha um bom dia!