Como ler um numero de um documento txt?

Delphi

26/06/2005

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


Feliperv

Feliperv

Curtidas 0

Respostas

Josemars

Josemars

26/06/2005

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.


GOSTEI 0
Beppe

Beppe

26/06/2005

1)
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.


GOSTEI 0
POSTAR