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 |
|
