Zitat von
Question_mark:
Hallo dahead,
Zitat von
dahead:
wie wärs wenn du was zum thema beiträgst oder es sein lässt?
Vielen herzlichen Dank für die freundliche Begrüssung hier im Forum.
Wie konnte ich als 12-jähriger, absoluter Noop es auch nur wagen, hier einfach zu posten
Ich hoffe, dass Du als absolut erfahrener, anerkannter Delphi-Experte mit so ungeheuerlich
wertvollen Forumsbeiträgen mir meinen kleinen, bescheidenen Beitrag verzeihst. Wird auch
bestimmt nicht wieder vorkommen.
Question_mark
Selbst wenn Du 50 wärst, wäre das ein gelungener Konter.
So, dahead. Der "Debugger sagt" soetwas natürlich nicht, weil der Debugger von Delphi nicht reden kann
. Ansonsten hat das Fragezeichen aber Recht, denn den Debugger benutzt man mit Menschenverstand und dann sieht man auch, wohin die Reise (bzw. der Programmcounter) geht.
Ich chleudere Dir hiermit dein Post churück:
Zitat von
dahead:
wie wärs wenn du was zum thema beiträgst oder es sein lässt?
Nun zum Code:
Delphi-Quellcode:
var
s,zahl:string;
i:Integer;
begin
s:='TEST 38';
for i:=length(s) downto i do // <--- for i... downto i? niemals. wenn, dann ...downto 1
begin
if s[i]=' ' then
break;
zahl:=copy(s,i,MaxInt);
Label1.Caption:=zahl;
end;
end;
Das klappt nicht. Gemeint ist vielleicht
Delphi-Quellcode:
begin
s:='TEST 38';
for i:=length(s) downto i do
if s[i]=' ' then
break;
zahl:=copy(s,i,MaxInt); // Break würde hierhin springen
Label1.Caption:=zahl;
end;
Aber das ist auch falsch, weil eine Schleifenvariable nach Beendigung der Schleife undefiniert ist.
Ganz bestimmt klappen tut das hier:
Delphi-Quellcode:
...
s:= '
TEST 38';
p := Pos ('
',s);
if p=0
then
Raise Exception.Create('
Kein Leerzeichen');
Label1.Caption := Copy (s, p+1, MaxInt);
...
Das Rumfrotzeln hier im Forum geht mir langsam, aber sicher auf den Keks, zumal 99% der Rumwixxereien Eigentore sind und deswegen peinlich für die Austeilenden (Bin ja auch nicht besser, gelobe aber Besserung).