Έχω κολλήσει με πρόγραμμα στην delphi

[yodan000]

Λοιπόν θέλω να κάνω ένα πρόγραμμα που να βρίσκει το άθροισμα 2 αριθμών βάζω a:=inputbox('Γεια','Δώσε τον α','α') και το ίδιο για το β και μετά βάζω c:=a+b αλλά πρέπει να διαλέξω αν θα βάλω real ή AnsiString και μου βγάζει σφάλματα.....

[sokoban4ever]

Δεν ξέρω delphi αλλά είχα κάνει κάποτε pascal,
Την μεταβλητή c την όρισες;
και αν ναι τότε πριν την ανάθεση c:=a+b ; ?
Υπόψιν αν προσθέτεις έστω και έναν real αριθμό δεν μπορείς να τον σώσεις σε integer μεταβλητή.

[yodan000]

κοίτα βάζω a,b,c:real αλλά τότε δεν μπορώ να βάλω την εντολή inputbox οπότε πρέπει να κάνω τον a,b AnsiString αλλά τότε δεν μπορώ να τους προσθέσω με τον c που είναι real άρα κάνω και τον c AnsiString αλλά τότε μου βγάζει τους αριθμούς δίπλα δίπλα χωρίς να κάνει πρόσθεση δλδ αν α=2,β=3 τότε c=23

[xqtr]

Καταρχας, μην χρησιμοποιεις το Ansistring, σκετο string ειναι αρκετο.. συνεπως θα δηλωσεις τα a, b ως string:

Κώδικας: Επιλογή όλων

var
a,b:string;

Αφου εχεις ορισει τις μεταβλητες σου ως string, πολυ απλα δεν μπορεις να τις προσθεσεις απευθειας! Δεν ειναι αριθμοι, ειναι χαρακτηρες!
Για να τα προσθεσεις θα κανεις το εξεις:

Κώδικας: Επιλογή όλων

c:=strtoint(a)+strtoint(b);

Αν εισαι σιγουρος οτι ο χρηστης θα εισαγει ακεραιους αριθμους τοτε μπορεις να δηλωσεις το c και ως integer ή longint ή int64. Αυτα στη περιπτωση που εισαι σιγουρος οτι ο χρηστης θα εισαγει στα a,b ακεραιους αριθμους. Αν δεν εισαι σιγουρος τοτε θα βαλεις αυτο:

Κώδικας: Επιλογή όλων

c:=strtofloat(a)+strtofloat(b);

οπου ο c θα ειναι real.

...δίπλα δίπλα χωρίς να κάνει πρόσθεση δλδ αν α=2,β=3 τότε c=23

οταν εχεις μεταβλητες με κειμενο/χαρακτηρες και κανεις αυτο a+b+c+... τοτε στην pascal/delphi ενωνει τους χαρακτηρες/κειμενο. πχ.

Κώδικας: Επιλογή όλων

a:='Ubuntu';
b:='RuleZ!';
c:=a+b; // 'UbuntuRuleZ'
c:=a+' '+b; // 'Ubuntu RuleZ'

Ελπιζω να βοηθησα....

[cyberpython]

@yodan: Πάρε ένα καλό βιβλίο για προγραμματισμό σε Pascal αφού θέλεις να μάθεις Delphi και ξεκίνα από εκεί (π.χ. είναι πολύ βασικό να κατανοήσεις τη διαφορά ανάμεσα σε διαφορετικούς τύπους δεδομένων).
Τώρα, για το πρόβλημά σου, όπως σου είπαν και παραπάνω, η Inputbox επιστρέφει string (οπότε δε μπορείς να κάνεις πράξεις).
Μπορείς όμως να χρησιμοποιήσεις την strtoint/strtofloat για μετατροπή σε ακέραιο/αριθμό κινητής υποδιαστολής και ίσως να θέλεις πρώτα να περάσεις το αποτέλεσμα της inputbox από την trim για να "διώξεις" tabs και κενά. Επίσης, καλό είναι να βάλεις τον κώδικα σε ένα try-except block σε περίπτωση που ο χρήστης δε δώσει έγκρυ τιμή (π.χ. 3a)

Κώδικας: Επιλογή όλων

procedure CalculateSum();
var
a,b,c:extended;
aStr,bStr: string;
begin
Try
aStr := InputBox('Give a number', 'A:', '1');
aStr := Trim(aStr);
a := StrToFloat(aStr);
bStr := InputBox('Give a number', 'B:', '1');
bStr := Trim(bStr);
b := StrToFloat(bStr);
c := a + b;
ShowMessage('C is '+floattostr(c));
except
on E : Exception do
begin
ShowMessage('Invalid value');
end;
end;
end;

[yodan000]

οκ ευχαριστώ.... βιβλίο για pascal έχω... αλλά δεν είναι ακριβώς οι ίδιες οι εντολές με την delphi οπότε το σταμάτησα...
Υ.Γ. ξέρετε κάποιον καλό οδηγό για delphi στα ελληνικά μου είπαν αυτόν http://dide.flo.sch.gr/Plinet/Tutorials ... elphi.html αλλά μου φαίνεται κάπως δύσκολος...