spajwan
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ne_viens мне нужно что бы значения вводились через эдиты, а потом уже попадали в Base10String - но описания аргументов по Base10String - отсутствует, во всяком случае искал, но не нашёл - где найти описание по Base10String ? подскажи плиз как мне это реализовать по эдитам ? Добавлено: protoror пробовал но почти на выводе выдаёт ошибку полный текст кода вот unit sumabcd; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FGInt, StdCtrls; //www.submanifold.be/triade/GInt/gint.html type TForm1 = class(TForm) mmo1: TMemo; procedure mmo1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.mmo1Change(Sender: TObject); var a, b, c, d, tmp: TFGInt; stra, strb, strc, strd: String; i: integer; begin Base10StringToFGInt('1', a); Base10StringToFGInt('3', b); Base10StringToFGInt('5', c); Base10StringToFGInt('7', d); mmo1.Lines.Add('1 3 5 7'); for i:= 1 to 100 do begin FGIntCopy(a, tmp); FGIntAdd(a, b, a); FGIntAdd(b, c, b); FGIntAdd(c, d, c); FGIntAdd(d, tmp, d); FGIntToBase10String(a, stra); FGIntToBase10String(b, strb); FGIntToBase10String(c, strc); FGIntToBase10String(d, strd); mmo1.Lines.Add(stra+' '+strb' '+strc+' '+strd); end; end; end. | Всего записей: 56 | Зарегистр. 21-06-2009 | Отправлено: 21:37 29-11-2014 | Исправлено: spajwan, 21:45 29-11-2014 |
|