Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: 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 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.05 c
15-1143311396
Топоним
2006-03-25 21:29
2006.04.16
Об употреблении некоторых топонимов


15-1143488133
ArtemESC
2006-03-27 23:35
2006.04.16
Simple Manual по asp...


2-1144240656
Студентик
2006-04-05 16:37
2006.04.16
Топологическая сортировка


2-1144020067
Leshas
2006-04-03 03:21
2006.04.16
Выделенная ячейка в StringGrid


15-1143093703
Ega23
2006-03-23 09:01
2006.04.16
С Днём рождения! 23 марта