testgbd
¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML.
Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos
fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 | {
$Id: testgdb.pp,v 1.3 2005/02/14 17:13:19 peter Exp $
Copyright (c) 1998 by Peter Vreman
Small example program to the GDB
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
program testgdb;uses gdbcon;
var
last,s,parafile : string;
gdb : tgdbcontroller;
begin gdb.init;
if paramcount=1 then
parafile:=paramstr(1)
else
parafile:='test'; gdb.loadfile(parafile);
Writeln('Welcome to the pascal GDB...');
Writeln('Type "q" to exit...');
last:='';
repeat write('>');
readln(s);
if (s='a') then
gdb.starttrace
else if (s='s') then
gdb.tracestep
else
if (s='n') then
gdb.tracenext else
if (s='q') then
break
else
begin if s='' then
s:=last;
GDB.Command(s);
GDB.WriteErrorBuf;
GDB.WriteOutputBuf; last:=s;
end;
until false;
Writeln('End of pascal GDB...');
end.{
$Log: testgdb.pp,v $
Revision 1.3 2005/02/14 17:13:19 peter
* truncate log
} |
Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
- Si es lenguaje C <code lang="c">Código en C</code>
- Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.
De esta manera el código coloreas el código.
Deja un comentario