Скачать: CL | DM;

Небольшая проблема   Найти похожие ветки 

← →
Barabashka   (2006-03-31 06:50) [0]

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

---

← →
MBo ©   (2006-03-31 07:10) [1]

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

---

← →
Barabashka   (2006-03-31 07:15) [2]

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

---

← →
balepa ©   (2006-03-31 07:15) [3]

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

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

---

← →
Barabashka   (2006-03-31 07:22) [4]

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;

---

← →
balepa ©   (2006-03-31 07:30) [5]

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

---

← →
balepa ©   (2006-03-31 07:47) [6]

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

---

← →
Barabashka   (2006-03-31 08:12) [7]

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

---

← →
balepa ©   (2006-03-31 08:23) [8]

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

Ну ты крут!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c