teilstrings kopieren,wurzel ziehen und arrays <- gelöst

[Stephanie H.]

Hab ich...
jetzt zeigt er das hier an:
project.lpr(46,17) Warning: Variable "X" does not seem to be initialized
project.lpr(47,17) Warning: Variable "Y" does not seem to be initialized

und das hier ist nochmal der quellcode:
X:= StrToInt(Copy(name,1, Pos(' ', name)));
Y:= StrToInt(Copy(name,Pos(' ', name),Length(name)));

[theo]

Eine Warnung ist eine Warnung und kein Fehler. Wo ist dein Problem?

[elektrischeliebe]

Ich kann die Fehler und Warnungen nicht nach voll ziehen.

Habe spaßes halber mal ein neues Projekt erstellt und das ganze ausprobiert.
Bei mir kommen weder Fehler noch Meldungen und es sind von Anfang an alle
Units eingebunden die man braucht.

Code: Alles auswählen

var x,y: integer;
    s: string;
begin
   s := '1234 4567';
 
   x := StrToInt(Copy(s,1,Pos(' ',s)-1));
   y := StrToInt(Copy(s,Pos(' ',s),length(s)));
 
   ShowMessage(IntToStr(x) + '+' + IntToStr(y) + '=' + IntToStr(x+y));

Also das funktioniert bei mir einwandfrei.

[pluto]

Zu deiner Frage: Du musst die Unit "SysUtils" einbinden, damit StrToInt verfügbar ist.

Eigentlich ist das doch per Standard gegeben. Ich bin davon ausgegangen dass sie Unit1 bzw. in From1 es verwendet.

Das mit dem Titel habe ich auch schon gesagt und auch Vorschläge gemacht: Du kannst ganz einfach, deinen Beitrag Editieren, Rechte Seite...

Edit01:

project.lpr(46,17) Warning: Variable "X" does not seem to be initialized
project.lpr(47,17) Warning: Variable "Y" does not seem to be initialized

Du solltest x und y vorher belegen, musst du aber in deinem Fall nicht unbedingt. Belegt sie einfach mit 0 also : x:=0; y:=0;. Dann gibt es auch keine Warnung.

[Stephanie H.]

nein ist schon ok...
ich benutz kein form und unit und so
wollte ich am anfang benutzen hab es aber dann doch gelassen !D

[pluto]

Was nutzt du dann ? Eine Unit muss du mind. nutzen. Direkt die LPR bzw. DPR ?

[Stephanie H.]

ja dieses ganz normale
diese .lpr und .lpi ....

[pluto]

Ach, dann ist es ein Consolen Projekt ?

[Stephanie H.]

joa keine ahnung... kann schon sein

[pluto]

joa keine ahnung... kann schon sein

Solltest du nicht wissen, was du machst ? *G*

[Stephanie H.]

ach...
ich mach Delphi :D

[Stephanie H.]

Also ich hab da wieder ein Problem...
mit den Kopieren von Teilstrings
also wenn ich das Programm starte dann zeigt er immer das hier an:
An unhandled exception occured at $004188E2:
EConvertError : "" is an invalid integer
$004188E2
$00401696 main, line 62 of project.lpr

Das ist irgenwie voll komisch und dann schließt es sich immer total schnell...

Ach ja hier ist mein Quellcode:
X:= StrToInt(Copy(name,1, Pos(' ', name)));
Y:= StrToInt(Copy(name,Pos(' ', name),Length(name)));

irgenwie ist das voll komisch :(

[pluto]

Code: Alles auswählen

X:= StrToInt(Copy(name,1, Pos(' ', name)));
Y:= StrToInt(Copy(name,Pos(' ', name),Length(name)));
 
irgenwie ist das voll komisch :(

Nun ja, so komisch auch wieder nicht. Die Fehler Meldung sagt: Das der Rückgabe Wert von Copy keine Zahl ist. Mach mal hinter dem ersten Pos bei X ein -1 dahinter und in der zweiten Zeile ein +1.
Also so:

Code: Alles auswählen

X:= StrToInt(Copy(name,1, Pos(' ', name)-1));
Y:= StrToInt(Copy(name,Pos(' ', name)+1,Length(name)));

nun sollte es Funktionieren. Der Grund für die Fehler Meldung ist: Pos gibt die Position zurück, wo es das Leerzeichen gefunden hat, also mit dem Leerzeichen und "1111 " ist keine Zahl, sondern eine Zeichenkette(String)

[Stephanie H.]

also darauf wäre ich nie gekommen... woher weiß du das denn?

ich hab das mal ausprobiert nur jetzt zeigt er das hier an, wenn ich variable x in eine array-tabelle speichern will... :

An unhandled exception occurred at $004016D4 :
EAccessViolation : Access Violation
$004016D4 main, line 63 of project.lpr

[Stephanie H.]

also so sieht jetzt mein quellcode aus:

Code: Alles auswählen

X:= StrToInt(Copy(name,1, Pos(' ',name)-1));
             writeln(X);
             XKoordinate[i]:=X;
             Y:= StrToInt(Copy(name,Pos(' ', name)+1,Length(name)));
             YKoordinate[i]:=Y;

und jetzt zeigt er das hier an:

An unhandled exception occurred at $00401909 :
EAccessViolation : Acces violation
$00401909 main, line 83 of project.lpr

also zeile 83 ist die Zeile: XKoordinate:=X;