Trabalhar com Arquivos Texto

Question

Ol� amigos delphianos !Estou com a seguinte D�vida :Num form tenho uma ComboBox e um Buttom. O que estou tentando fazer � que ao clicar no buttom, seja adicionado o texto que foi digitado na combo um ...

Rodc · Answer

ComboBox1.Items.SaveToFile(�C:Windowsurl.txt�); // Salva no arquivoComboBox1.Items.LoadFromFile(�C:Windowsurl.txt�); // L� do arquivoDeleteFile(�C:Windowsurl.txt�); // Remove o arquivo...

Tiagojmilam · Answer

Bom, deu certo.Agora, � o seguinte :Tem como eu saber se o texto que est� sendo adicionado na ComboBox j� est� adicionado, e n�o adicion�-lo novamente ?Para n�o haver repeti��es nos Itens da Combo.Valeu mais uma vez galera !!!...

Augustolima · Answer

Mano,

var arq: TextFile;
linha: String;
i:Integer;
vExist:Boolean;
begin
AssignFile ( arq, �c:\windows\url.txt� );
Reset ( arq );
ReadLn ( arq, linha );
vExist := False;
while not Eof ( arq ) do begin
for i:=0 to ComboBox1.Items.Count - 1 do begin
if linha = ComboBox1.Items.Strings[i] then vExist := True;
end;
if not vExist then ComboBox1.Items.Add(linha);
ReadLn ( arq, linha );
end;
CloseFile ( arq );
end;

� um pouquinho grande o c�digo, mas ve se te ajuda.

T� mais

Rodc · Answer

[code:1:ee2c62d1b3]if ComboBox1.Items.IndexOf(�Linha_de_texto�) = -1 then  ShowMessage(�N�o tem na lista�);[/code:1:ee2c62d1b3]Mas para pegar linha-a-linha voc� ter� de ler o arquivo linha-a-linha. Para isto veja no help a fun��o OpenFile() e ReadLn()....

Rjun · Answer

Esse seu arquivo texto � muito grande. Talvez seja melhor utilizar TStringList para carregar seu arquivo texto....

F�rum Trabalhar com Arquivos Texto #311160