Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
22. Apr 2006
Bevor du dich jetzt allzu sehr auf die Funktion CleanText verläßt: ein "*" ist kein Buchstabe. :wink:
Gruß Hawkeye
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
22. Apr 2006
Der Fehler tritt an der markierten Stelle auf:
while i<=length(str) do
begin
o:=ord(upcase(str))-ord('A')+1;
alist:=alist+1; // <<---- hier
inc(i,step);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
22. Apr 2006
Hallo,
wenn die Variable start den Wert 0 enthält, kann das zum beschriebenen Fehler führen (siehe meinen Beitrag #12).
Gruß Hawkeye
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
19. Apr 2006
Ein Versuch:
Der übergebene Startwert ist 0, Du greifst hier
o:=ord(upcase(str))-ord('A')+1;
alist:=alist+1;
auf das 0-te Zeichen im String zu, erhältst #0 und damit einen negativen Wert für die Variable o. Der Zugriff auf die Liste aList führt dann zum Absturz.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hawkeye219,
19. Apr 2006
Hallo Nikolas,
änderst Du in der draw-Routine die Position einer TrackBar (in diesem Fall tbStep)?
Falls ja, dann dürfte es zu rekursiven Aufrufen der Change-Routine kommen.
Jedenfalls so lange bis der Speicher voll ist...
Gruß Hawkeye