Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

orc

Encontrar e susbstituir uma string que esteja na primeira coluna

Recommended Posts

Bom dia , gostaria de saber como faço para encontrar e susbstituir uma string de uma tstringlist, a qual só substituir somente aquelas que começam a partir da primeira coluna

Compartilhar este post


Link para o post
Compartilhar em outros sites

ja resolvi

 

procedure TForm1.BtAdicionarVaraClick(Sender: TObject);Var   I : Integer;   linha, Enc, Subs : string;   Arquivo : TStringList;begin  //  Arquivo := TStringList.Create;  Arquivo.LoadFromFile(EdCaminho.Text);   //  for I := 0 to Arquivo.Count -1 do  begin	linha :=  Arquivo.Strings[i];	Enc := '00000';	Delete(  linha, 1, Length(Enc));	Insert(Edit1.Text, linha, 1 );	Arquivo.Strings[i] := linha;  end;  //  //Memo1.Lines.SaveToFile('C:\interteste.txt');  Arquivo.SaveToFile( 'C:\testeando.txt' );  FreeAndNil(arquivo);  memo1.Lines.LoadFromFile('C:\testeando.txt');end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.