Delphi - Busqueda en un archivo de texto

   
Vista:

Busqueda en un archivo de texto

Publicado por Juan Jose (2 intervenciones) el 03/11/2009 20:12:41
EL problema es el siguiente:

tengo un archivo de texto que contiene dos datos numéricos separados por un ; y necesito la función lefpos para ese punto y coma para separar asignar los valores a dos variables aquí esta un ejemplo del código.

procedure TForm1.GraficarClick(Sender: TObject);
var
f : textfile;
linea: String;
x,y : Real;
begin
opendialog1.InitialDir := GetCurrentDir;
if opendialog1.Execute then begin
assignfile(f, opendialog1.FileName);
reset(f);
while not EoF(F) do
Readln(f, linea);
Trim(linea);
x:= leftstr(linea, ';');
y:= ;
self.Series1.AddXY(x,y);
Closefile(f)
end

else
exit;
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Busqueda en un archivo de texto

Publicado por E.T. (1107 intervenciones) el 03/11/2009 20:42:28
x := StrToFloat(LeftStr(linea,pos(';',linea)-1));
y := StrToFloat(RightStr(linea,length(linea)-pos(';',linea)));
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar