Code: Alles auswählen
if element^.name = 'ADorf Gl12.1 ' then
begin
SendDebug(element^.name); // Das oder hier dann einen Breakpoint ohne Bedingungen setzen
end;
Code: Alles auswählen
var
i: Integer;
...
if element^.name = 'ADorf Gl12.1 ' then
i := i+1-1; //<---- hier normalen Breakpoint setzen
Link: http://wiki.lazarus.freepascal.org/IDE_ ... propertiesBreakpoint properties - Condition
...
NOTE #2: Strings can not be compared. They are seen as pchar, so they can only be compared to an address: "str=0x5a0b40". But chars in a string can be compared (index is zero based/pchar) "(s[0]='a')and(s[1]='b')".
Das wäre doch ein Job für dich, das zu verbessern, damit es nicht mehr "jämmerlich" ist?Dee hat geschrieben:Finde ich ziemlich jämmerlich, dass das nicht möglich ist.
Code: Alles auswählen
{1} procedure THauptFormular.TesteHaltePunktClick(Sender: TObject);
{2} var
{3} Element: PElemente;
{4} ElementReferenz: TElemente;
{5}
{6} // Debug-Variablen
{7} Debug_HalteWert: String = 'ADorf Gl2.1 ';
{8} begin
{9} Element := @ElementReferenz;
{10} Element^.Name := EditEingabeFeld.Text;
{11} Now; // bedingter Haltepunkt: Element^.Name = 'ADorf Gl2.1 '
{12} end;
In der Zeile 11 würde dann der Haltepunkt eingefügt. Das Now dient für die bessere Lesbarkeit und Orientierung. Ich hätte lieber nur den Kommentar stehen, aber dann greift der Haltepunkt erst eine Anweisung später und das kann bedeuten, wenn das Ende der Methode erreicht ist, der Haltepunkt trotzdem ausgeführt wird. So ist sichergestellt, dass der Haltepunkt richtig ausgelöst wird.Bedingung für Haltepunkt:
UTF8CompareStr(Element^.Name, Debug_HalteWert) = 0
Es dürfte ziemlich schwierig sein, dem GDB Pascal String Typen beizubringentheo hat geschrieben:Vielleicht musst du bei GDB beginnen, keine Ahnung. https://www.gnu.org/software/gdb/
Schade, denn ich war durch theo so hochmotiviert und kurz davor, dieses Problem anzugehen, aber dann lese ich, dass das nicht leich sein wird. Naja, kann man nichts machen. Dann lasse ich das lieber, denn vor schwierigen Sachen halte ich mich lieber fern.mschnell hat geschrieben:Es dürfte ziemlich schwierig sein, dem GDB Pascal String Typen beizubringen
Leider wird der Haltepunkt immer ausgelöst, egal welche String-Werte verwendet werden, womit wir wieder beim ursprünglichen Problem wären.fliegermichl hat geschrieben:Aber PChar ist doch weitestgehend gleich mit char * in C oder etwa nicht?
Edit: Ja ist es. Man kann "utf8comparetext(edit1.Text, 'Hallo Welt') = 0" in die Bedingung schreiben und der Debugger hält brav an wenn man "Hallo Welt" in das Edit schreibt.
Code: Alles auswählen
#include <stdio.h>
int main(int argc, char *args)
{
char *s = "Hallo Welt";
printf(s);
return 0;
}
Code: Alles auswählen
b 5
r
b6 if strcmp(s, "Hallo") = 0
cont
Ausgabe:
Continuing.
Hallo Welt[Inferior 1 (process 8632) exited normally]
Code: Alles auswählen
(gdb) set language pascalCode: Alles auswählen
Can't take adress of \<beliebiger Konstanten-Bezeichner> which isn't an lvalue.Wenn der Debugger ein beliebiges Unterprogramm (hier strcmp) aufrufen kann, das im gedebugten Programmcode existiert, sollte das auch mit einer entsprechenden FPC-Funktion wie z.B. "UTF8CompareStr" gehen ??? Es kann aber sein, dass der Debugger die Pascal-Aufrufkonvention für Strings nicht (richtig) kann. Dann könnte man vielleicht eine spezielle Funktion um Code unterbringen. die explizite Aufruf-Konventionen verwendet und dann UTF8CompareStr aufruft.fliegermichl hat geschrieben:Vorraussetzung ist, daß das Programm bereits gestartet sein muss, da gdb ansonsten meckert, dass er strcmp nicht finden kann.
Es muss doch irgendwie möglich sein dem gdb PChar und das strcmp unterzujubeln?
Verein
Links
Suche