PDA

Просмотр полной версии : Delphi-подскожите примитивы.


Тарифы: МТС, Билайн, МегаФон
Выгодные непубличные тарифы МТС, Билайн, МегаФон, Безлимитный интернет ✅
Deagle
21-12-2007, 12:40
Я не дельфист,каким образом можно вводить информацию в StringGrid.
Например у меня есть переменная A как сделать так , чтобы её содержимое в какой нибудь линейке появилось ? Напишите пример,я дальше разберусь.

Linuxoid
21-12-2007, 17:30
Монстрообразное поделие под названием Delphi в топку. Lazarus - наше всё

Руководства - тоже наше всё.

Проникающий В Ра3ум
21-12-2007, 18:01
у тебя всегда так? все не так и все не то?
и вообще если нечего сказать по теме лучше помолчать.

FDD
21-12-2007, 18:06
Судя по всему Lazarus пока сыроват, но у него, имхо, хорошие шансы стать полноценным Open Source аналогом Delphi (кроссплатформенным).

teremok
21-12-2007, 19:13
Не помню точно. По-моему, у StringGrid есть свойство Cells[номер_столбца][номер_строки]=A

Адзот
21-12-2007, 19:26
а книжку почиткать слабо????

Beath Vibes
21-12-2007, 19:28
только и можешь кричать что Микрософт мастдай? :D

Linuxoid
21-12-2007, 20:28
Где я тут по существу ничего не написал? Покажи.

Где тут про некрософт я писал?

По существу сказать тебе видать нечего.

Linuxoid
21-12-2007, 20:31
Его уже используют для написания программ. Для тех, целей, которые преследует Deagle, Lazarus вполне подойдёт. Вряд ли Deagle прямо уж суперпупер энтерпрайз программы пишет.

P.S.

Если нужно научиться программировать и получать немалые деньги за это, забей на Delphi. Тут много не заработаешь. Delphi - ширпотребная штука, не больше. А со знанием Java открыто гораздо больше дорог. Delphi - R.I.P. и нужен только для поддержки уже имеющейся кодовой базы. От Delphi надо избавляться. Писать что-то с помощью Delphi - большая ошибка.

Athlon
21-12-2007, 23:42
линуксоид, ты написал чё-нибудь в Lazarus'е?

Linuxoid
22-12-2007, 00:08
Писал не я. Вообще Lazarus пользоваться не собираюсь, так как это по сути продолжение Delphi. И призвано оно для того, чтобы хоть как-то продлить жизнь тем, кто только и умеет на Delphi писать.

Вот Java - это да. Неплохая штука.

AlphiS
22-12-2007, 00:14
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I, J, K : Integer;
begin
K := 0;
with StringGrid1 do
for I := 0 to ColCount - 1 do
for J:= 0 to RowCount - 1 do
begin
K := K + 1;
Cells[I,J] := IntToStr(K);
end;
end;

Els
22-12-2007, 00:29
Л а в каком яп ты считаешь себя специалистом?
я это к тому,что очень уж много ты "знаешь"

Linuxoid
22-12-2007, 00:34
Ни в каком. И мне это не нужно. Один язык прекрасно подходит для одних задач. Другой - для других. Я имел дело с разными языками, хоть и далеко не со всеми.

Delphi - гнилая платформа. Видел.

Athlon
22-12-2007, 00:36
а на яве написал чё-нибудь?

Els
22-12-2007, 00:36
тогда не надо обсирать то чего не знаешь
я не сторонник делфи, но многие работают в нем и делают Дела

Linuxoid
22-12-2007, 00:37
Да. Штука удобная. Но уклон на ООП... Я сейчас подыскиваю другой инструмент. Как кандидат - Lisp.

Linuxoid
22-12-2007, 00:38
Читай моё сообщение.

Els
22-12-2007, 00:53
и что там читать?:confused:

Linuxoid
22-12-2007, 00:59
В таком случае беседа бесполезна.

Els
22-12-2007, 01:31
речь о том, что ты не являясь спецом в опред весчах, постоянно выступаешь чуть ли не профом)), насколько я понял ты частый пользователь других общеизвестных форумов, поэтому не стоит повторять чужие слова, выдавая за свои, если ты не можешь подкрепить их своими реальными знаниями.
Не в обиду, ты же на физике учишься?

Deagle
22-12-2007, 01:37
Спасибо.Я разобрался. А такой вопрос.Как сделать так ,чтобы при запуске проги этим колонкам сразу присваивать некоторые переменные,типа раздела инициализации в турбо паскале.Я что то смотрел типо процедура TForm1.FormActivate(Sender: TObject); должна это выполнять ,но ничего не происходит.Вот текст ,что не так ?
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.Items.Add('По горизонтали');
ComboBox1.Items.Add('По вертикали');

Form1.StringGrid1.Cells [0,0]:='Номер';
Form1.StringGrid1.Cells [1,0]:='Дом';
Form1.StringGrid1.Cells [2,0]:='Квартира';

end;

i-Pod
22-12-2007, 01:45
На форме в свойствах onload.

Собачка в очках
22-12-2007, 02:24
я вот ща надо курсач делаю по нему, что-кнопки не получаются

Собачка в очках
22-12-2007, 02:26
я вот ща курсач делаю по нему, что-то кнопки не получаются

Els
22-12-2007, 02:47
ох, не видел этот пост. что ж вопросов больше нет. Видел-это сильно;) :D

Linuxoid
22-12-2007, 15:24
Где?

Одного. И, если опрашивать пользователей фарита, не такой он общеизвестный :)

Delphi - монстрообразная среда разработки, и бинарники, которые получаются в результате, по-моему слишком большие. Синтаксис у Object Pascal/Delphi очень негибок. Lazarus хотя бы свободен.
Но в идеале лучше учить что-то другое, более правильное, нежели языки, очень близкие по родству к Pascal.

Как ни странно, те, кто учатся на компьютерных специальностях, зачастую знают в своих областях гораздо меньше, чем физики.

Deagle
24-12-2007, 22:41
Я через Эдит ввожу числа, но если вводишь букву,то компилятор даёт ошибку .Как этого избежть ? Я вот так делаю:
try c:=StrToInt(Edit1.Text );
except on EConvertError do
begin
ShowMessage('В размерах нельзя вводить буквы');
exit;
end;
end;
Сообщение то выводит,но перед этим всё равно ошибку даёт. Как от этого избавиться вообще ? В компиляторе или в коде надо что-то делать ?

lantastic
25-12-2007, 14:30
лучше попробуй http://read.excode.ru/art2146p4.html

NightDragon
25-12-2007, 14:44
мдя ))) дельфи =) я уж и забыл что эта такойе :(

Deagle
25-12-2007, 16:04
Блин.Изини.Ты не мог бы копировать там основное одержание и сюда вставить,я через пацанчика в инет лазию. Его дома не застать, у меня на счету копейки.Если не трудно.

Kolos
25-12-2007, 16:17
debugger options->language exeption->stop on delphi exeptions


з.ы. Лисп конечно прикольный язык, копал его десяток лет назад, но имхо далеко не для ввсех задач он

lantastic
25-12-2007, 16:33
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ′,′ then
Key := DecimalSeparator; // запятую заменяем на разделитель для числа

if Key = ′.′ then
Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)

if not (Key in [′0′..′9′,′-′,DecimalSeparator,#8,#13]) // символы которые пропускаются
or ((Key = DecimalSeparator) // все цифры знак минус разделитель
and (POS (DecimalSeparator, Edit1.Text) > 0)) // запрет на второй сепаратор
or ((Key = ′-′) and (POS (′-′, Edit1.Text) > 0)) // запрет на второй минус
or ((Key = ′-′) and (Edit1.SelStart <> 0)) // запрет на минус не вначале цифры
then // (можно и предыдущей строчки но так лучше для понимания)
begin
Key := #0; // запрещенный символ заменяем нулем
MessageBeep (MB_OK); // биб в спикир
end;
end;

NightDragon
25-12-2007, 16:36
плин ... раздражает не форматированный код :(

Deagle
25-12-2007, 22:26
Спасибо .Помогли оба ,разобрался во многом.По способу номер два я что то похожее в Турбо паскале делал.
У меня такие вопросы ещё:
Как в комбо сделать так чтобы из уже добавленных при старте программы ,уже при смом же старте стояло какое либо значение.
Я так делал:
ComboBox1.Text:='Вдоль';
Но после того как я поставил в инспекторе:Style-csDropDownList
Чтобы значения параметров заданных по умолчанию нельзя было изменять,то теперь изначально незнаю как при старте задать какое либо из заданных мной значений .Как это сделать ?
И такой вопрос.Когда нажимаешь на Enter комп Бринькает,Задал параметр какой-нибудь ,на ентер нажал чтобы он ввёлся,вводиться всё нормально ,только бринькает всегда,как это убрать ?

Linuxoid
25-12-2007, 23:27
Возможно надо написать обработчик для события открытия окна.

Kolos
26-12-2007, 13:47
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.items.Add('первый');
ComboBox1.items.Add('фторой нах');
ComboBox1.items.Add('ф пятерке');
ComboBox1.itemIndex:=1; //здесь собстно и устанавливаем дефолтныйй элементю в данном случае будет 'фторой нах'
end;

Athlon
26-12-2007, 16:51
у Combobox надо изменять ItemIndex (вроде такой), нумерация с 0
если я правильно понял вопрос

Kolos
26-12-2007, 18:47
:D :D :D

kykqx
26-12-2007, 19:04
бугага... в Delphi прога с пустой формой - 300 kb, в Lazarus - 5 мегабайт (после удаления дебуговой информации около двух мегабайт).. и у кого тут бинарники слишком большие?

Linuxoid
26-12-2007, 19:53
Отморозки в поисках ледяной свежести? :)

Deagle
28-12-2007, 23:44
Спасибо,пока инет не работл разобрался .Ещё вопрос.Как новую форму создавать,прям при исполнении файла ? (Я хочу там изображение вывести) .

Deagle
30-12-2007, 12:59
Как создать форму нажав на буттон дургой формы,типо справки с риснком,тольо риснок по программе чертится и это не в виде мессинга должно быть ?

Linuxoid
30-12-2007, 23:42
См. мой ответ в теме про визуал недостудио.

Deagle
07-01-2008, 22:07
Ты бы хоть ссылку кинул сразу чтоль ) Но сейчас меня это не беспокоит уже,я знаю как создавать )))

Deagle
07-01-2008, 22:52
С чем вот эта ошибка связанна не пойму,всё вроде работает,но эта хрень высакивает постоянно?