+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل من باسكال لدلفي (/showthread.php?tid=2721)
تحويل من باسكال لدلفي - samo - 16-01-2011
[FONT="Arial Black"]السلام عليكم
قمت بتحويل برنامج من باسكال الى دلفي وقمت بمايلي لكن هناك خطأ عند تنفيذ البرنامج
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..3]of integer;
b:array[1..3]of integer;
c:array[1..3]of integer;
i,j,k:integer;
begin
for i:=0 to 2 do
for j:=0 to 2 do
for k:=0 to 2 do
c. Cells[i,j]=inttostr(strtoint(c. Cells[i,j])+ inttostr(a.cells[i,j])*(inttostrb(cells[j,i]));
end;
end.تحويل من باسكال لدلفي - TF6M - 16-01-2011
و عليكم السلام و رحمة الله بركاته
- ماهي رسالة الخطأ بالتحديد ؟ وضح .
تحويل من باسكال لدلفي - samo - 16-01-2011
الخطأ عند هاته التعليمة
كود :
c. Cells[i,j]=inttostr(strtoint(c. Cells[i,j])+ inttostr(a.cells[i,j])*(inttostrb(cells[j,i]));تحويل من باسكال لدلفي - Lam.Abdeldjalil - 17-01-2011
وعليكم السلام و رحمة الله
هذا كودك
كود :
c.Cells[i,j[COLOR=DimGray]][/COLOR][COLOR=Red]:[/COLOR]=inttostr(strtoint(c.Cells[i,j])+ inttostr(a.cells[i,j])*(inttostr[COLOR=Red](b[/COLOR].cells[j,i]));إقتباس :[FONT=Arial Black]باسكال[FONT=Arial Black]
هل أنت متأكد ؟ فري باسكال / تيربو ..؟
+ إشرح ما تحاول فعله رياضيا !
بالتوفيق