Boa noite,
Tenho um arquivo de texto com varias linhas, onde as linhas que me interessam são as que começão com 'PU' e 'PD' onde dentro destas linhas existem valores que gostaria de atribuir a duas variáveis.
PW0.350,6;
PW0.350,7;
PW0.350,8;
LT;
SP1;
PU-3651 -2229;
PD-2851 -2229;
PD-2851 -1429;
PD-3651 -1429;
PD-3651 -2229;
SP0;
por exemplo a primeira linha que me interessa 'PU-3651 -2229' gostaria de salvar o (-3651 na variável x e o -2229 na y) alguém poderia me ajudar
OBS: ja estou abrindo o arquivo
if OpenDialog1.Execute then
begin
linhasarq := opendialog1.FileName;
AssignFile(arquivo,opendialog1.FileName);
Memo1.Text := opendialog1.FileName;
reset(arquivo);
while Not (Eof(arquivo)) do
Begin
ReadLn(arquivo,linhasarq);
Memo2.Lines.Add(linhasarq);
end;
CloseFile(arquivo);