פורסם 2007 במרץ 618 שנים הרבה זמן לא תכנתתי ב -Pascal אז אולי התחביר לא כ"כ נכון, אבל הרעיון של הפרוצדורה נכון.procedure DeleteString(var S:StrRecordType;Index,Count:integer);var I:integer;begin if Index+Count>S.Len then writeln('too long') else begin for I:=0 to S.Len-(Index+Count) do begin if I+Count == S.Len then break; //stop the loop else S.Str = S.Str[i+Count];end; S.Len:=S.Len - Count; end;end;
פורסם 2007 במרץ 618 שנים מחבר טוב תודה חברה. UNSIGNED INTEGER, השתמשתי הרעיון שלך עם השרשור, תודה, עובד הכל(חוץ מבאג קטן פה ושם, אבל אני אסתדר, מקסימום, אשאל פה)
ארכיון
דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.