Aah nono ya está. Puse el procedure Split arriba de todo, claro, sino no me lo reconocía
quedo así:
Código Delphi
[-]procedure Split(S: String; out D, E: Integer);
var
I: Integer;
begin
I := Pos(' ', S);
D := StrToIntDef(Copy(S, 1, I - 1), 0);
E := StrToIntDef(Copy(S, I + 1, Length(S)), 0);
end;
procedure TForm1.ArchivoClick(Sender: TObject);
var
i: integer;
begin
Detener1:= False;
SumaTension := 0;
SumaVoltaje := 0;
try
Archivo.enabled:=false;
detener.enabled:=true;
if OpenDialog1.Execute then
Lista.Lines.LoadFromFile(OpenDialog1.FileName);
for i:= 0 to Lista.Lines.Count - 1 do
begin
Application.ProcessMessages;
tiempo.caption := TimeToStr(Time);
Split(Lista.Lines[i], Tension, Voltaje);
SumaTension := SumaTension + Tension;
SumaVoltaje := SumaVoltaje + Voltaje;
A:=i;
if detener1 then
begin
break;
end;
lista.Lines[i]:= lista.Lines[i] + ' ... ' +tiempo.Caption;
end;
Detener.Enabled:=false;
if (A=Lista.Lines.Count-1) then
begin
A:= A+1;
PromedioT.caption:= 'El promedio de la tension es de: ' + FormatFloat('0.000',(SumaTension/A));
PromedioV.caption:= 'El promedio del voltaje es de: ' + FormatFloat('0.000',(SumaVoltaje/A));
end;
finally
end;
end;
procedure TForm1.DetenerClick(Sender: TObject);
begin
Detener1:=True ;
Reanudar.Enabled:=true;
Detener.Enabled:=false;
end;
procedure TForm1.ReanudarClick(Sender: TObject);
var
i: integer;
begin
try
reanudar.Enabled:=false;
detener.Enabled:=true;
detener1:=false;
for i:= A to Lista.Lines.Count - 1 do
begin
Application.ProcessMessages;
tiempo.caption := TimeToStr(Time);
Split(Lista.Lines[i], Tension, Voltaje);
SumaTension := SumaTension + Tension;
SumaVoltaje := SumaVoltaje + Voltaje;
A:=i ;
if detener1 then
begin
break;
end;
lista.Lines[i]:= lista.Lines[i] + ' ... ' +tiempo.Caption;
if (A=Lista.Lines.Count -1) then
begin
Detener.Enabled:=false;
Archivo.Enabled:=true;
A:=A+1;
PromedioT.caption:= 'El promedio de la tension es de: ' + FormatFloat('0.000',(SumaTension/A));
PromedioV.caption:= 'El promedio del voltaje es de: ' + FormatFloat('0.000',(SumaVoltaje/A));
end;
end;
detener.enabled:=false;
finally
end;
end;
end.
Gracias chicos!