Fórum Como ler um numero de um documento txt? #286108
26/06/2005
0
1-Eu estou querendo ler um numero de uma linha num arquivo txt e jogar este numero para um spinedit.
Na linha 38 do arquivo txt tem o texto abaixo.
CHAMP Opponents=22
Eu queria pegar este numero 22, e jogar ele para um spinedit.
2-Como deixar um combobox e um spinedit funcionando porem sem opção de escrever alguma coisa neles?
Obrigado
Felipe
Na linha 38 do arquivo txt tem o texto abaixo.
CHAMP Opponents=22
Eu queria pegar este numero 22, e jogar ele para um spinedit.
2-Como deixar um combobox e um spinedit funcionando porem sem opção de escrever alguma coisa neles?
Obrigado
Felipe
Feliperv
Curtir tópico
+ 0
Responder
Posts
27/06/2005
Josemars
Mano, é o seguinte :
para ler a linha, basta procurar pelo comando READLN que você vai conseguir pois não me lembro. Agora para pegar aquele número você vai ter que usar o comando copy(17,2) que vai dar certo.
para ler a linha, basta procurar pelo comando READLN que você vai conseguir pois não me lembro. Agora para pegar aquele número você vai ter que usar o comando copy(17,2) que vai dar certo.
Responder
Gostei + 0
28/06/2005
Beppe
1)
2) Pode usar ReadOnly := True ou então reverter o valor no OnChange.
procedure TForm1.Button1Click(Sender: TObject);
var
Valor: Integer;
begin
with TStringList.Create do
try
LoadFromFile(´Opções.txt´);
Valor := StrToInt(Values[´CHAMP Opponents´]);
// use Valor
finally
Free;
end;
end;2) Pode usar ReadOnly := True ou então reverter o valor no OnChange.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)