Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Не работает   Найти похожие ветки 

 
Chapchaps   (2006-03-30 08:31) [0]

Есть у меня такая функция:
function mmm(Const StringGrid1:TStringGrid):Real;
Var I,X:Integer;
mmm:String;
begin
mmm:="";
With StringGrid1 do begin
X:=ColCount;
For I:=0 to X-1 do
If StrToInt(Cells[I,1]>0)then
   mmm:=IntToStr(Cells[I,1]);
end;
end;
А он ругается, что несовместимы типы String и Integer. Помогите!


 
tesseract ©   (2006-03-30 09:09) [1]


> StrToInt(Cells[I,1]>0)

StrToInt(Cells[I,1])>0


 
Chapchaps   (2006-03-30 09:38) [2]

Спасибо!


 
Старик   (2006-03-30 09:41) [3]

Поправьте меня, если я ошибаюсь, но разве не правильнее было бы передавать в функцию указатель на класс вместо целиком класса?

ChapsChaps, полистай Sysutils - там много подобных полезных функций strtofloat, strtoint, strtocolor и т.д.


 
Chapchaps   (2006-03-30 09:55) [4]

Вывожу результат на кнопочку:
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text:=FloatToStr(mmm(StringGrid1.);
end;
Жутко ему это не нравится, даже считать не хочет - говорит отсутствуют начальные данные, а они очень даже присутствуют!


 
vovnuke ©   (2006-03-30 10:02) [5]

А значение твоей функции как-нибудь зависит от того что ты туда передаешь?


 
Chapchaps   (2006-03-30 10:06) [6]

Ну да - числа.


 
vovnuke ©   (2006-03-30 10:11) [7]

хорошо, покажи где ты присваиваешь выходное значение всоей функции.


 
Старик   (2006-03-30 10:14) [8]

Edit3.Text:=FloatToStr(mmm(StringGrid1.);
А что за точка после StringGrid"a ?
А что касается результата твоей функции, то для того, чтобы твоя функция выдала хоть что-нибудь, то тебе нужно в конце функции писать
Result := blablabla;
Только тогда твоя функция вернет значение типа Real, которое ты передаешь во FloatToStr


 
Chapchaps   (2006-03-30 10:15) [9]

mmm:=IntToStr(Cells[I,1]);


 
vovnuke ©   (2006-03-30 10:19) [10]

Вот здесь:

> mmm:=IntToStr(Cells[I,1]);

ты присваиваешь значение локальной переменно "mmm: string", а чтобы функция возвращала значения см. [8]


 
Старик   (2006-03-30 10:20) [11]

ChapsChaps.... Это что ты такое написал???



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
2-1145549181
Vitalik__
2006-04-20 20:06
2006.05.07
координаты курсора мыши


3-1142406478
Stanislav
2006-03-15 10:07
2006.05.07
Сохранение *.udl файла


15-1144520015
Ketmar
2006-04-08 22:13
2006.05.07
играющие в Magic the Gathering, посветуйте, plz


15-1144769258
chizra
2006-04-11 19:27
2006.05.07
Как пользоваться программой tar.exe для распаковки...


15-1144846025
Курдль
2006-04-12 16:47
2006.05.07
Америка глазами программиста





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский