|
#1
|
|||
|
|||
где ошибка?
Прошу найти ошибку
на 51 строчке "Not enough actual parameters." Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Edit1: TEdit; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin { ListBox1.Items.Add('Ðîññèÿ'); ListBox1.Items.Add('Àðìåíèÿ'); ListBox1.Items.Add('Áåëàðóñü'); ListBox1.Items.Add('Êèðãèçèÿ'); ListBox1.Items.Add('Òóðêìåíèñòàí'); } ListBox1.itemindex:=0; end; procedure TForm1.Button1Click(Sender: TObject); var k:integer; dlit, sum:double; begin case ListBox1.Items.Indexof 0: k:=2; 1: k:=3; 2: k:=4; 3: k:=5; 4: k:=6; end; begin dlit:= strtofloat(edit1.Text); sum:=dlit*k; end; ShowMessage('Ñòîèìîñòü ðàçãîâîðà'+floattostr (sum)); end; end. |
#2
|
||||
|
||||
Здесь ошибка
Код:
case ListBox1.ItemIndex of Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#3
|
|||
|
|||
а что там не так?
|
#4
|
||||
|
||||
чувствуешь разницу?
case ListBox1.Items.Indexof case ListBox1.ItemIndex of Пишу программы за еду. __________________ |
#5
|
|||
|
|||
спасибо !
|
#6
|
|||
|
|||
Вот еще программу делаю "поиск одинаковых символов"
делаю через едит программа вроде работает, но после вывода сообщения о позиции намертво зависает, т.е. для повторного поиска приходится перезапускать программу Что не так? Код:
procedure TForm1.Button1Click(Sender: TObject); var posid, tposid, size :integer; s: string; begin s:= Edit1.Text; posid:=1; while posid<>0 do begin tposid:=pos('а', s); if tposid = 0 then begin Label1.Caption:='Нет символа'; //ShowMessage('В строке такого символа - нет'); end else if tposid <> 0 then begin posid := posid+tposid; ShowMessage('posid='+IntToStr(posid-1)); s:=Copy(s,tposid+1,Length(s)); end; end; end; end. |