Ayuda con Delphi urge
Realiza un programa que lea desde un archivo de texto (arreg.txt), el contenido de 10 valores enteros (positivos y negativos), que los cuente e imprima en diferentes memos el resultado de cuantos positivos y cuantos negativos hay, además de imprimir a c/u de los
elementos, según le corresponda.
1 respuesta
Añade un Button y 2 Memos al Form e incluye el siguiente código en el evento OnClick del Button:
procedure TForm1.Button1Click(Sender: TObject);
var ArchivoDeTexto: TextFile;
Linea: String;
Valor: Integer;
begin
// Resetea los Memos
Memo1.Lines.Clear;
Memo2.Lines.Clear;// Asigna el archivo a la variable ArchivoDeTexto
AssignFile(ArchivoDeTexto, 'C:\Arreg.txt') ;// Abre el archivo
Reset(ArchivoDeTexto);//Lee todas las lineas
while not Eof(ArchivoDeTexto) do
begin
// Lee la linea actual
ReadLn(ArchivoDeTexto, Linea);// Asigna la linea a un valor entero
Valor := StrToInt(Linea);// Añade el valor a uno de los Memos
if Valor < 0 then Memo1.Lines.Add(Linea)
else Memo2.Lines.Add(Linea);
end;// Cierra el archivo
CloseFile(ArchivoDeTexto);// Añade el total de valores
Memo1.Lines.Add('');
Memo1.Lines.Add('Valores negativos: ' + IntToStr(Memo1.Lines.Count));
Memo2.Lines.Add('');
Memo2.Lines.Add('Valores positivos: ' + IntToStr(Memo2.Lines.Count));
end;
Salu2.
