http://www.delphisources.ru/forum ru Thu, 17 May 2012 01:18:09 GMT vobla 60 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 22:45:39 GMT http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 22:13:03 GMT

Код

var
q : Single = 1.6e-19;
m0 : Single = 9.1e-27;
c : Single = 3e8;

procedure TForm2.Button2Click(Sender: TObject);
var
I, J : Integer;
U, v : Single;
begin
// расчет значений для графика
J := 1;
U := 0;
StringGrid1.Cells[0, 0] := 'Напряжение U, МВ';
U := -c * sqrt(1 - sqr(m0 * c * c / (5 * q * U + m0 * c * c)));
StringGrid1.Cells[1, 0] := 'Скорость v, м/c';
repeat
U := U + 100000;
v := -c * sqrt(1 - sqr(m0 * c * c / (5 * q * U + m0 * c * c)));
inc(J);
// Записываем напряжение в ячейку:
StringGrid1.Cells[0, J] := FloatToStr(U);
// Записывем скорость в ячейку ниже,под соответ.напряжением:
StringGrid1.Cells[1, J] := FloatToStr(v);
until J > StringGRid1.ColCount - 1;
end;

только алгоритм у вас составлен не для колонок, а для строк.
а вот так, как вы хотели:

Код

var
q : Single = 1.6e-19;
m0 : Single = 9.1e-27;
c : Single = 3e8;

procedure TForm2.Button2Click(Sender: TObject);
var
I, J : Integer;
U, v : Single;
begin
// расчет значений для графика
J := 1;
U := 0;
StringGrid1.Cells[0, 1] := 'Напряжение U, МВ';
U := -c * sqrt(1 - sqr(m0 * c * c / (5 * q * U + m0 * c * c)));
StringGrid1.Cells[0, 2] := 'Скорость v, м/c';
repeat
U := U + 100000;
v := -c * sqrt(1 - sqr(m0 * c * c / (5 * q * U + m0 * c * c)));
// Записываем напряжение в ячейку:
StringGrid1.Cells[J, 1] := FloatToStr(U);
// Записывем скорость в ячейку ниже,под соответ.напряжением:
StringGrid1.Cells[J, 2] := FloatToStr(v);
inc(J);
until J > 16;//StringGRid1.ColCount - 1;
end;

]]> http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 21:47:58 GMT
q = 1,6e-19 переносится из другой формы
m0 = 9.1e-27 переносится из другой формы

с=3е8

v, U - переменные для графика
v - функция от U....
Вроде всё указал..]]> http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=20970&goto=newpost Wed, 16 May 2012 20:26:28 GMT Разработка сайтов
Не первый год занимаемся разработкой сайтов и иных проектов.]]> http://www.delphisources.ru/forum/showthread.php?t=20970 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 20:25:11 GMT
Для начала исправьте:

Код

StringGrid1.Cells[0, J] := FloatToStr(U);
// Записывем скорость в ячейку ниже,под соответ.напряжением:
StringGrid1.Cells[1, J] := FloatToStr(v);

]]> http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 20:23:10 GMT m0 и q - они переносятся из другой формы, их программа видит,проблем нет.
с - скорость света..
___________
С другой стороны можно любую функцию рассмотреть!!!Правильно ведь?
Подскажите на примере хотя бы с y := x*x чтобы понять в чем ошибки,почему не выводят, а дальше я сделаю для своей функции...
Спасибо заранее за любую помощь... Уже не знаю как быть, ничего не получается :(]]> http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=17320&goto=newpost Wed, 16 May 2012 20:14:00 GMT http://www.delphisources.ru/forum/showthread.php?t=17320 http://www.delphisources.ru/forum/showthread.php?t=21076&goto=newpost Wed, 16 May 2012 20:06:07 GMT

Код

var
Wnd: HWND;
Text: String;
i: Byte;
begin
Text := 'ping 127.0.0.1';
Wnd := FindWindow('ConsoleWindowClass', nil);
if Wnd <> 0 then
for i := 1 to Length(Text) do
SendMessage(Wnd, WM_CHAR, Ord(Text[i]), 0);

Я так понял эту строчку нужно изменить??? Просто прописать дуда процесс в памяти?
Подскажите пожалуйста плиз..]]> http://www.delphisources.ru/forum/showthread.php?t=21076 http://www.delphisources.ru/forum/showthread.php?t=20752&goto=newpost Wed, 16 May 2012 19:58:40 GMT 1. Чтобы браузер копировал с HTML кода странички значение одной ячейки таблицы типа -

09.Лип.2012

09.Лип.2012 - переменное значение (вот его и надо копировать оно всегда идет после ) ;
2. Сравнивал данное значение с введенным в строку и если оно равно или меньше заданного выводил звуковой сигнал.
3. А, и еще чтобы браузер обновлялся через определенное время тат как значение 09.Лип.2012 может в любое время поменяться.]]> http://www.delphisources.ru/forum/showthread.php?t=20752 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 19:57:20 GMT http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=21099&goto=newpost Wed, 16 May 2012 19:53:11 GMT

Код

// ЗАПОЛНЕНИЕ ТАБЛИЦЫ
procedure TForm3.Button3Click(Sender: TObject);
var i, j: Integer;
U,v :real;
begin
// расчет значений для графика
j:=1;
U:=0;
StringGRid1.Cells[0,0]:='Напряжение U,МВ';
U:=-c*sqrt(1-sqr(m0*c*c/(5*q*U+m0*c*c)));
StringGRid1.Cells[1,0]:='Скорость v,м/c';
Repeat
U:=U+100000;
v:=-c*sqrt(1-sqr(m0*c*c/(5*q*U+m0*c*c)));
j:=j+1;
//Записываем напряжение в ячейку:
StringGRid1.Cells[0,j]:=IntToStr(U);
//Записывем скорость в ячейку ниже,под соответ.напряжением:
StringGRid1.Cells[1,j]:= IntToStr(v);
Until j>StringGRid1.ColCount-1;

end;

Bargest: Не забываем выделять код тегами [ code ] [ /code ]! Кнопка "VAR" в редакторе сообщения.]]> http://www.delphisources.ru/forum/showthread.php?t=21099 http://www.delphisources.ru/forum/showthread.php?t=21105&goto=newpost Wed, 16 May 2012 19:42:32 GMT
Adotable1.FieldByName('Data').AsDateTime:= Date;

а вот как добавить время? у меня не получилось пробовал так:

Adotable1.FieldByName('Time').AsDateTime:= Time; но оно выводит дату и не системную а какую то совсем старую (30.12.1899) вот так вот
помогите плиз срочно нужно.]]> http://www.delphisources.ru/forum/showthread.php?t=21105 http://www.delphisources.ru/forum/showthread.php?t=21102&goto=newpost Wed, 16 May 2012 19:16:14 GMT http://www.delphisources.ru/forum/showthread.php?t=21102 http://www.delphisources.ru/forum/showthread.php?t=21102&goto=newpost Wed, 16 May 2012 19:10:30 GMT http://www.delphisources.ru/forum/showthread.php?t=21102 http://www.delphisources.ru/forum/showthread.php?t=21102&goto=newpost Wed, 16 May 2012 18:35:01 GMT

Цитата:

через юсб шлет данные на локальный ip (temp файл запускает отправку)

какой интерфейс: Ethernet, USB или RS-232(UART)?]]> http://www.delphisources.ru/forum/showthread.php?t=21102 http://www.delphisources.ru/forum/showthread.php?t=21104&goto=newpost Wed, 16 May 2012 18:11:34 GMT

Сообщение от cotseec:

похоже, что не относится...
видимо ТС сделал копию таблицы, разместив ее на другой форме...а вот изменение копии, при изменении оригинала (после оповещения об этом) не проводит

да я копию первой разместил на форм2.
потом я проверяю даные первой табл с значением второй, если есть разница то вывожу уведомление.]]> http://www.delphisources.ru/forum/showthread.php?t=21104 http://www.delphisources.ru/forum/showthread.php?t=21104&goto=newpost Wed, 16 May 2012 18:05:36 GMT видимо ТС сделал копию таблицы, разместив ее на другой форме...а вот изменение копии, при изменении оригинала (после оповещения об этом) не проводит]]> http://www.delphisources.ru/forum/showthread.php?t=21104 http://www.delphisources.ru/forum/showthread.php?t=21102&goto=newpost Wed, 16 May 2012 18:02:21 GMT http://www.delphisources.ru/forum/showthread.php?t=21102 http://www.delphisources.ru/forum/showthread.php?t=21104&goto=newpost Wed, 16 May 2012 18:01:04 GMT

Код

if StringGrid11.Cells[i,j]<>Form2.StringGrid1.Cells[i,j]

Левая половина не относится к Form2?]]> http://www.delphisources.ru/forum/showthread.php?t=21104 http://www.delphisources.ru/forum/showthread.php?t=21104&goto=newpost Wed, 16 May 2012 17:53:04 GMT

Сообщение от Snake22:

объяви глобальную переменную.и потом у стринггрида в событии
OnSelectCell запомни текст выделенной ячейки, а в событии OnsetEditText проверяй,если текущее значение отличается,значит изменилось.
Acol,ARow тебе в помощь

я зделат вот так, но мне каждый раз когда я ввожу даные выбивает уведомление

Код

for i:=0 to StringGrid11.RowCount do
for j:=0 to StringGrid11.ColCount do
if StringGrid11.Cells[i,j]<>Form2.StringGrid1.Cells[i,j] then ShowMessage('');

]]> http://www.delphisources.ru/forum/showthread.php?t=21104