كود بسيط بالسي++ لم أستطع تحويله للدلفي / C++ To Delphi

[khiro rca 5]

السلام عليكم

إخواني

وجدت هذا الكود بالـ++C وسيعينني على عملي لكن لم أستطع تحويله للدلفي لأكمل العمل - ولا أعرف السي ++

هذا هو الكود (يقوم بوضع كل كلمة في سطر إنطلاقا من جملة)

int main()

{

string strtext("khiro c++ delphi");

int iLength = strtext.length();

for (int i=0;i<=iLength;i++)

{ if (!(strtext==' '))

{

cout<<strtext;

}

else

cout<<endl;

}

return 0;

}

**********

وهذه محاولتي لتحويله للدلفي لكني أخفقت لأنه يقوم بوضع كل حرف في سطر

var text:string;

ilengt,i :Integer;

//---------------------------

begin

i:=0;

text:='khiro c++ delphi' ;

ilengt:=length(text); ;

//---------------------------

for i := 0 to ilengt do

begin

if text<>(' ') then

Writeln(text) ;

end;

Readln;

end.

هل من خبير في اللغتين معا يستطيع التحويل بينهما؟؟؟

أرجو أن تنقذوني إخواني .. أنتظركم ......

[Eng_redaesm 0]

نعم يا اخي يقوم بطباعة كل حرف في سطر

وكذلك برنامج السي ++ اللي وضعته يقوم بطباعة كل حرف في سطر

يعني كود الباسكال يقوم بنفس عمل كود السي ++

عملك صحيح اخي الكريم

[arabi2013 67]

الكود يقراء حرف حرف وإذا وجد حرف فارغ ينتقل للسطر الثاني.

[YaSeenTA 30]

كما قال الأخ فهد ..

الموضوع لا يحتاج لخبرة كبيرة فقط يحتاج لفهم الكود بشكل صحيح ومراجعة عمل كل دالة

عدل الكود كما يلي

for i := 1 to ilengt do
begin
if text[i]<>(' ') then
Write(text[i])
else
writeln;
end;