Borrar Nombre
Publicado por tugatime (44 intervenciones) el 13/01/2013 18:00:06
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure pedido_entregado(var mi_cesta: cesta; var Nfichero: string);
var
i: integer; fichero: text; linea: string; exito: boolean;begin
for i:=1 to tamxcesta do
mi_cesta[i].en_cesta:= false;
exito:= false;
assign(fichero, 'indice.txt');
{$I-}
reset(fichero);
{$I+}
if (ioResult=0) then
begin
while not eof(fichero) do
begin
readln(fichero, linea);
if (linea=Nfichero) then
exito:= true;
end;
if (exito=true) then
end
else
writeln('Lo siento, pero aun no se ha realizado ningun pedido.');
close(fichero);
end;
En este procedimiento lo que tengo que hacer es borrar los productos de una cesta (eso ya esta hecho, solo tengo que poner el campo en_cesta a false) y tengo que borrar el nombre de la cesta del fichero de texto "indice.txt".
Lo primero que hago es comprobar que el fichero de texto "indice.txt" existe. Luego, si existe, lo que hago es leer el fichero linea a linea hasta encontrar el nombre que quiero borrar.
Cuando encuentro el nombre que quiero borrar, lo que tengo que hacer es borrarlo, pero el problema es que no se que poner para borrar ese nombre.
Me he quedado aqui: "if (exito=true) then". En esta parte he encontrado el nombre, pero no se que poner para borrarlo. Alguna idea ?
Valora esta pregunta
0