Excluir determinado texto de arquivo .txt

Delphi

03/06/2003

Saudações,
estou com uma dúvida simples e acho que alguém pode me ajudar é o seguinte: eu criei uma aplicação que joga o texto contido num edit em um arquivo texto e depois é visualizado numa combo...alguém sabe me dizer como fazer para deletar o texto escolhido na combo...tipo meu nome, escolho na combo e clico excluir, se o meu nome existir na combo então deleta...ah! alguém sabe tb como excluo todos os nomes contidos? Muito obrigado


Elias Jr

Elias Jr

Curtidas 0

Respostas

Jairo Norenberg

Jairo Norenberg

03/06/2003

Elias

Tente ler os dados do arquivo .TXT e colocá-las numa MEMO ou LISTBOX.
E toda vez que alterar os dados grave-os no arquivo .TXT.

Aqui vão os procedimentos para cada operação. Eu indiquei um MEMO mas pode ser um LISTBOX.

[u:6e1382b661]Para criar o arquivo .TXT[/u:6e1382b661]

procedure TForm1.CriarTabelaClick(Sender: TObject);
Var
ArqText:TextFile;
begin
AssignFile(ArqText,´ArqTexto_Teste.txt´);
Rewrite(ArqText);
Writeln(ArqText,´´);
CloseFile(ArqText);
end;

[u:6e1382b661]Para ler o arquivo e colocá-los num MEMO e no próprio COMBOBOX[/u:6e1382b661]

procedure TForm1.LerArquivoClick(Sender: TObject);
Var
ArqText:TextFile;
s:string;
begin
AssignFile(ArqText,´ArqTexto_Teste.txt´);
Reset(ArqText);
Memo2.Clear;
while not Eof(ArqText) do begin
readln(ArqText,s);
if s <> ´´ then begin
ComboBox1.Items.Add(s);
Memo2.Lines.Add(s);
end;
end;
CloseFile(ArqText);
end;

[u:6e1382b661]Para adicionar o EDIT na COMBOBOX e no MEMO[/u:6e1382b661]

procedure TForm1.AdicionarArquivoClick(Sender: TObject);
Var
i:integer;
begin
if Edit1.Text = ´´ then exit;
ComboBox1.Items.Add(Edit1.Text);
Memo2.Clear;
for i := 0 to ComboBox1.Items.Count -1 do
Memo2.Lines.Add(ComboBox1.Items[i]);

end;


[u:6e1382b661]Para Gravar os dados do MEMO no arquivo[/u:6e1382b661]

procedure TForm1.GravarTextoClick(Sender: TObject);
Var
ArqText:TextFile;
i:integer;
begin
AssignFile(ArqText,´ArqTexto_Teste.txt´);
Rewrite(ArqText);
for i:=0 to Memo2.Lines.Count -1 do
Writeln(ArqText, Memo2.lines[i]);
CloseFile(ArqText);
end;

[u:6e1382b661]Para excluir a informação que estiver na COMBOBOX (exclui do MEMO e da COMBO)[/u:6e1382b661]


procedure TForm1.ExcluirClick(Sender: TObject);
begin
if ComboBox1.Text = ´´ then exit;
if ComboBox1.Text = Memo2.Lines[Memo2.Lines.IndexOf(ComboBox1.Text)] then begin
Memo2.Lines.Delete(Memo2.Lines.IndexOf(ComboBox1.Text));
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(ComboBox1.Text));
end;
end;

Não se esqueça de gravar o arquivo toda vez que alterar o MEMO ou LISTBOX


se não der certo, avise-me


Até+

Jairo Norenberg


GOSTEI 0
POSTAR