| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Небольшая проблема

Barabashka ©   (2006-03-31 06:50:00) 

Привет, Мастера! Подскажите пожалуйста, как мне сделать так: на Label1 у меня назначено кое -какое значение. Хотелось бы чтобы оно отображалось и на Label и на Edit1. Помогите! L:=Label1.Caption;
                                         Edit6.Text:=L; - не действуетю

---

balepa   (2006-03-31 08:23:00) [1]

> Barabashka   (31.03.06 08:12) [7]
> Спасибо огромное!!! я над этой ошибкой уже 2 днясижу - где
> были мои глаза!!!

Ну ты крут!!!

---

Barabashka   (2006-03-31 08:12:00) [2]

Спасибо огромное!!! я над этой ошибкой уже 2 дня сижу - где были мои глаза!!!

---

balepa   (2006-03-31 07:47:00) [3]

Сразу не заметил Если все что после for написано надо выполнять в цикле после do поставь begin а в конце end; а то у тебя только
S:=S+StrToFloat(StringGrid1.Cells[i,1]);в цикле

---

balepa   (2006-03-31 07:30:00) [4]

И че не работает ? У тебя в Label1 че нибудь написано ?
Должно работать. Могу посоветовать F7(8) или breakpoint'ы и посмотреть значение L после L:= Label1.Caption и перед Edit6.Text:= L.
И вообще вынеси из цикла L:= Label1.Caption и Edit6.Text:= L

---

Barabashka   (2006-03-31 07:22:00) [5]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
S,T,B,D,C,V:real;
L:string;
begin
S:=0;
B:=0;
//Arr[i]:=strtocurr(stringGrid1.Cells[i,1]);
for i:=1 to 50 do
    S:=S+StrToFloat(StringGrid1.Cells[i,1]);
    T:=S/50;
    B:=B+sqr((StrToFloat(StringGrid1.Cells[i,1])-T));
    D:=B/T;
    C:=sqrt(D);
    V:=C*100/T;
    L:=Label1.Caption;
    // R:= currtostr(max(arr,50));
    Edit1.Text:=FloatToStr(S);
    Edit2.Text:=FloatToStr(T);
    // Edit6.Text:=currtostr(max(arr,50));
     Edit4.Text:= FormatFloat('0.00',D);
     Edit5.Text:= FormatFloat('0.00',C);
     Edit3.Text:= FormatFloat('0.00',V);
     Edit6.Text:=L;
   end;

---

Barabashka   (2006-03-31 07:15:00) [6]

Ага, L:string;Но не работает! Может по-другому как?

---

balepa   (2006-03-31 07:15:00) [7]

> Barabashka   (31.03.06 06:50)  
> Привет, Мастера! Подскажите пожалуйста, как мне сделать
> так: на Label1 у меня назначено кое -какое значение. Хотелось
> бы чтобы оно отображалось и на Label и на Edit1. Помогите!
>  L:=Label1.Caption;
>                                          Edit6.Text:=L;
> - не действуетю

А L:= Label1.Caption - действует ? Если да то покажи код

---

MBo   (2006-03-31 07:10:00) [8]

>Edit6.Text:=L; - не действуетю
если L - строка, то должно работать

---

Наверх