ошибка в Lazarus

[copperhead]

Что за ошибка, часто вылазит.

Где здесь ошибка?

begin

pud:=StrToInt(Edit1.Text);

funt:=StrToInt(Edit2.Text);

kg:=pud*16.38+funt*16.38/40;

Label4.Caption:='В килограммах';

'+FloatToStr(kg)'

end; <- 47 строка

end. <-49 строка

unit1.pas(47,1) Error: Illegal expression

unit1.pas(50) Fatal: There were 1 errors compiling module, stopping

ЗЫ: я в этом деле нуб жесткий , только учусь.

[Petrovichtim]

Label4.Caption:='В килограммах';

'+FloatToStr(kg)'

первая строка конается точкой с запятой, и ты в неизвестность плюсуешь ещё преобразование

а должно бать так

Label4.Caption:='В килограммах'+FloatToStr(kg);

вот и вся ошибка, Лазариус это обжект Паскаль как я понимаю

[copperhead]

Petrovichtim, вроде да, object pascal

спс закомпилировал без проблем, но вот ошибка всё равно вылазит когда я проект собираю, потом пытаюсь опять компилировать не выходит(опять эта ошбка)javascript:emoticon('*49')

[L0K1]

copperhead

радует конечно, что кто-то правильный паскаль изучает.

Но дата 2107 год намекает, что прогу написали в будущем.

Жду терминатора с попкорном..

[copperhead]

copperhead

радует конечно, что кто-то правильный паскаль изучает.

Но дата 2107 год намекает, что прогу написали в будущем.

Жду терминатора с попкорном..

ахах, на счёт даты не знаю, но что это за ошибка и...почему дата такая??)

[L0K1]

мб. в самом лазарусе прописан формат даты, несовместимый с виндовой. В итоге он как-то странно получает дату.. и естественно в шоке. Ковыряйте настройки..

Может не для той локали, например.

[copperhead]

Ладно, в общем разобрался..ещё одно(кстати по Delphi!!!)-нужно чтобы Файл при 1-ом запуске добавлялся в автозапуск не нажимая на кнопку т.е через Form1 , как это сделать???

Искал в нете нашел разные примеры:

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);

var

reg: TRegistry;

begin

....

Reg := nil;

try

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',

false);

reg.WriteString('My App', Application.ExeName);

reg.CloseKey;

reg.free;

except

if Assigned(Reg) then Reg.Free;

end;

......

end;

uses

Registry

var

Key:=TRegistry;

begin

Key:=TRegistry.Create;

Key.RootKey:=HKEY_LOCAL_MACHINE;

Key.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',true);

Key.WriteString('AUTORUN',ExtractFilePath(Application.ExeName)+'AUTORUN.exe');

Key.CloseKey;

end;

1

2

3

4

5

6

7

8

9

10

11 procedure TForm1.N1Click(Sender: TObject);

var

reg: TRegistry;

begin

reg:= TRegistry.Create;

reg.RootKey:= HKEY_LOCAL_MACHINE;

reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);

reg.WriteString('CopyDB',Application.ExeName);

reg.CloseKey;

reg.Free;

end;

var reg: tregistry;

begin

reg := tregistry.create;

reg.rootkey := hkey_local_machine;

reg.lazywrite := false;

reg.openkey('software\microsoft\windows\currentversion\run', false);

reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё}

reg.closekey;

reg.free;

end;

[Petrovichtim]

Событие формы On.Create

в винде в общем 7 мест автрозагрузки, ищи какое для тебя удобнее

[copperhead]

Событие формы On.Create

в винде в общем 7 мест автрозагрузки, ищи какое для тебя удобнее

я понял что событие формы On.Create

но хотелось бы по подробнее, а то чёт недогоняю.

[Vsadnik665]

Видимо, в событии пишешь Form1->ButtonX.Click();

чтоб не нажимая на кнопку

[copperhead]

Видимо, в событии пишешь Form1->ButtonX.Click();

чтоб не нажимая на кнопку

нее, я про автозапуск.

[copperhead]

всё разобрался.