|
|
| Другие темы раздела | |
|
Delphi Вывести считав нужный вариант.
https://www.cyberforum.ru/ delphi-beginners/ thread558667.html Добрый вечер! Делаю программу на подобии кофейного аппарата и столкнулся с такой проблемой, что как не пиши, программа берёт только первую радио кнопку и всегда даёт сдачу в размере первого товара(т.е. 5 монет), что не выбирай и что не вводи. Процесс происходящего следующий. В поле едит 7 вводим сумму монет, затем нажимая радио кнопку выбираем нужный товар и нажимаем получить. type ... |
Сортировка по алфавиту Delphi Как сделать так, чтобы при сортировке по алфавиту местами менялся не только первый столбец, но ещё и все остальные? |
| Delphi Преобразование в число (Delphi) реализую преобразование букв в числа (соответствующее порядковому номеру этой буквы в алфавите) А=1; Б=2; В=3 etc procedure TForm1.Button1Click(Sender: TObject); const masAlf: array of char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var s: string; l,i: integer; begin for i:=1 to StringGrid1.ColCount-1 do https://www.cyberforum.ru/ delphi-beginners/ thread558642.html |
Delphi Преобразование в число (Delphi)
https://www.cyberforum.ru/ delphi-beginners/ thread558635.html реализую преобразование букв в числа (соответствующее порядковому номеру этой буквы в алфавите) А=1; Б=2; В=3 etc procedure TForm1.Button1Click(Sender: TObject); const masAlf: array of char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var s: string; l,i: integer; begin for i:=1 to StringGrid1.ColCount-1 do |
|
CD-ROM - скорость вращения Delphi Сдаюсь! Не могу найти способ управления скоростью вращения диска в приводе. Подскажите, пожалуйста. Цель простая: Остановить вращение диска. |
Delphi Задача "MS-DOS"
https://www.cyberforum.ru/ delphi-beginners/ thread558593.html Пожалуйста помогите!!! на Delphi 7 (если можно консольный режим) Строка длиной не более 1000 символов содержит полный путь к файлу в формате MS-DOS (возможно, с указанием имени диска): имя файла и каждого из промежуточных директориев не превосходит 8 символов, а необязательное расширение отделяется от имени точкой и имеет длину не более 3 символов. Если длина исходной строки больше N символов (N... |
| Delphi Описать логическую функцию Одинрост(ГР) Описать логическую функцию Одинрост(ГР), проверяющую, есть ли в группе Гр хотя бы два человека одного роста. type name=(Валя, Юля, Женя, Дима, Саша, Катя, Даша, Леша); info=record pol: (men, women); rost: 140..200 end; group=array of info; Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода... https://www.cyberforum.ru/ delphi-beginners/ thread558576.html |
Точка на координатах... Delphi Помогите пожалуйста понять, почему выходит ошибка после ввода данных и нажатия на bitbtn... вот код: procedure TForm1.BitBtn1Click(Sender: TObject); var xa,xb,xc,xd,ya,yb,yc,yd,a,b,c,s,s1,s2,s3,p,ab,bc,ac,ad,bd,cd:real; procedure ps; begin p:=0.5*(a+b+c); s:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin |
|
Delphi Подсчитать количество пар символов «bc» и «ac» и определить, какая из пар встречается чаще
https://www.cyberforum.ru/ delphi-beginners/ thread558537.html необходимо вести строку символов. Подсчитать количество пар символов «bc» и «ac» и определить, какая из пар встречается чаще. я уже написала кое-что, но, к сожалению, это не работает: Var bc, ac, S:String; Kbc, Kac, i:Integer; begin S:=Edit1.Text; Kbc:=0; Kac:=0; |
Delphi Сдача алюминия Дано 5 листбоксов в каждом листбоксе постоянно рандомно добавляющиеся люди с алюминием для сдачи в метталом 1 очередь 100г 2 очередь 200г 3 очередь 300г 4 очередь 400 г 5 очередь 500 г Ну и в выводящий листбокс должно выводится: сначало туда должны выводится те люди которые имеют алюминия больше по весу, чем все остальные также за один раз должно быть сдано как можно больше алюминия(то... https://www.cyberforum.ru/ delphi-beginners/ thread558448.html |
|
Обработка нажатий клавиатуры Delphi доброго времени суток подскажите пожалуйста в чем ошибка и как ее исправить, в delfi7 на форме у меня размещен квадрат и необходимо чтоб при нажатии клавиш UP или DOWN он переместился в верх или низ , почитал несколько тем, написал, но никакой реакции не происходит вот код procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=33 then knopka:=1;... |
Delphi Решение нелинейного уравнения степени n. Здравствуйте уважаемые программисты!! Помогите пожалуйста написать программу для решения нелинейного уравнения степени n. Буду очень благодарна:) https://www.cyberforum.ru/ delphi-beginners/ thread558410.html |
|
1 / 1 / 0
Регистрация: 25.04.2012
Сообщений: 11
|
|
| 26.04.2012, 17:03 [ТС] | 0 |
Помогите найти ошибку в сохранении stringgrid в текстовый файл - Delphi - Ответ 295898726.04.2012, 17:03. Показов 939. Ответов 12
Метки (Все метки)
Ответ
вот собственно весь проект.
Вернуться к обсуждению: Помогите найти ошибку в сохранении stringgrid в текстовый файл Delphi
0
|
|
| 26.04.2012, 17:03 | |
|
Готовые ответы и решения:
12
Хочу сохранить данные из stringgrid в файл, помогите найти ошибку
Помогите найти ошибку. Проблема в выводе в файл через процедуру.
|
| 26.04.2012, 17:03 | |
| 26.04.2012, 17:03 | |
|
Помогаю со студенческими работами здесь
0
StringGrid и текстовый файл Загрузить текстовый файл в StringGrid Вывод StringGrid в текстовый файл
Сохранить таблицу StringGrid в текстовый файл |