orc 0 Denunciar post Postado Outubro 5, 2007 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
orc 0 Denunciar post Postado Outubro 5, 2007 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