Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Не вычищает Excel из памяти https://www.cyberforum.ru/ delphi-beginners/ thread638357.html
'Access violation at address 00403A4E in module 'Project2.exe'. Read of address 00000009' procedure ExportDBGrid(toExcel: Boolean); var bm: TBookmark; col, row: Integer; sline: String; mem: TMemo; ExcelApp: Variant; begin
Delphi Случайные вещественные числа в диапазоне
Есть RandomRange(), но он только для целых чисел, подскажите как организовать что Random выдавал только числа в диапазоне, допустим от 1.89 до 2.62
Delphi авто регер https://www.cyberforum.ru/ delphi-beginners/ thread638319.html
нужно создать авто регер чтоб он 1 мыло и пароль регистрировал 2 фио дата рождения и поли 3 ник 4 номер телефона и капчу
Delphi Научите парсить В интернете полно статей "опа, сейчас вы научитесь парсить", но в этих статьях приведен сухой код :( Кто может подробно объяснить как юзать copy pos для парсинга. Еще слышал про какие-то dom-модели. Пишут что в овер9000 раз меньше кода, да еще и все происходит быстрее. https://www.cyberforum.ru/ delphi-beginners/ thread638254.html
Delphi Из WebBrowser достать все таблицы с определенным классом
Привет. Мне нужно из WebBrowser достать все таблицы с некорорым классом.код: var i, j: Integer; ovTable: OleVariant; begin ovTable := WebBrowser1.OleObject.Document.all.tags('TABLE').item(0); for i := 0 to (ovTable.Rows.Length - 1) do begin for j := 0 to (ovTable.Rows.Item(i).Cells.Length - 1) do begin
Delphi Создание атрибута https://www.cyberforum.ru/ delphi-beginners/ thread638129.html
Задача буквально следующая - есть xml, есть узел - например asd у него 2 атрибута aaa = 111 и bbb = 222, как програмно добавить 3-ий атрибут ccc = 333? Добавлено через 1 час 0 минут Даже уточню вопрос - почему это не работает? // загрузка конфигурационного файла XMLDoc := CreateOleObject('MSXML2.DOMDocument'); XMLDoc.async := False; XMLDoc.resolveExternals := False; XMLDoc.load(...
Delphi Добавление и редактирование строк DBGrid Есть форма1 с DBGrid и 2 кнопки (New i Edit) которие откривают форму2 с двума кнопками Ok i Cancel, можна так сделать чтоб при нажатии на кнопку New отривалась форма2 и добавлялясь новая запись, а при нажатии на кнопку Edit отрывалась опять же форма2 только чтоб новая запись не создавалась. Вот код форми2 на собитие кнопки "Ок" //-----Процедура новой строчки------------------------... https://www.cyberforum.ru/ delphi-beginners/ thread638120.html Delphi Найти соответствие?
Товарищи подскажите пожалуйста как сделать преобразование? Имеется два файла в первом построчно прописаны цифры (пример ниже): 2 3 5 14 14 23 и т.д. Во втором файле построчно написаны эти же цифры в порядке возростания, но через три пробела напротив их написаны их соответствия (пример ниже)
Delphi Интеграция форм Как интегрировать окна между собой так, что бы при нажатии на кнопку (в главной форме) открывалось второе окно, в котором, допустим нажав кнопку окно закрывалось, а в главной форме в WebBrowser1 открывался сайт. //Первая форма procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; //Вторая форма procedure TForm2.Button1Click(Sender: TObject); begin... https://www.cyberforum.ru/ delphi-beginners/ thread638048.html Delphi Развернуть свернуть форму https://www.cyberforum.ru/ delphi-beginners/ thread638031.html
Наверняка этот вопрос здесь обсуждался. Но я пока на него не нашел ответа. Есть некая программа. Если я ее начинаю разворачивать на весь экран - то получаю такую фигню. Нужна корректная работа, подчеркнутых красным, кнопок. Как ее нормально развернуть?
Delphi Проверка наличия атрибута в xml файле
Сразу предупреждаю - делфи может быть не совсем полноценный - работаю в Inno Setup. Вопрос следующий: Как проверить наличие атрибута bbb? // загрузка конфигурационного файла XMLDoc := CreateOleObject('MSXML2.DOMDocument'); XMLDoc.async := False; XMLDoc.resolveExternals := False; XMLDoc.load( ExpandConstant('{app}\Configuration\Config.xml') ); if XMLDoc.parseError.errorCode <> 0...
Delphi Что такое pDWORD? Есть код if pDWORD(@scan)^> color then pDWORD(@scan)^:=clWhite else pDWORD(@scan)^:=clBlack; Он проверяет изображение, если есть пиксели светлее задоного цвета он их закрасит в белый, если нет то он их закрасит черным. Объясните пожалуйста как работает, и что значит pDWORD и @scan. https://www.cyberforum.ru/ delphi-beginners/ thread637974.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.08.2012, 14:30 0

Удаление пустой строки либо заполнение пустой строки нулями - Delphi - Ответ 3363941

16.08.2012, 14:30. Показов 2945. Ответов 10
Метки (Все метки)

Ответ

Удаление строк в которых первая ячейка пустая или ноль.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:byte;
begin
i:=1;
while i<sg.RowCount do
if (sg.Cells[1,i]='0')or(sg.Cells[1,i]='') then
 begin
  if i=sg.RowCount-1 then sg.RowCount:=sg.RowCount-1
  else
   begin
    for j:=i to sg.RowCount-2 do
    for k:=1 to sg.ColCount-1 do
    sg.Cells[k,j]:=sg.Cells[k,j+1];
    sg.RowCount:=sg.RowCount-1
   end;
 end
else inc(i);
end;


Вернуться к обсуждению:
Удаление пустой строки либо заполнение пустой строки нулями Delphi
Миниатюры
Удаление пустой строки либо заполнение пустой строки нулями   Удаление пустой строки либо заполнение пустой строки нулями  
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.08.2012, 14:30
Готовые ответы и решения:

Запрет на удаление пустой строки StringGrid
доброго времени суток! мне надо сделать так, чтобы единственная пустая строка(на скрине) не...

Как, проходя файл посимвольно, удалить пустые строки? Пустой символ в Char :scratch:
Как, проходя файл посимвольно, удалить пустые строки? Пустой символ в Char :scratch:

Заполнение последней строки StringGrid нулями.
Дана таблица StringGrid (Delphi). Количество строк неизвестно. Как заполнить последнюю строку...

Полосатое закрашивание строк от пустой до пустой строки
Добрый вечер. Подскажите пожалуйста,необходимо в таблице на 50 листах закрасить строки в таком...

10
16.08.2012, 14:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.08.2012, 14:30
Помогаю со студенческими работами здесь

Удаление пустой строки в DataGridView
Собственно, сабж. Помогите пожалуйста сделать обход ошибки, вылетающей при удалении пустой строки в...

Удаление пустой строки из TextBox
Как удалить пустую строку из textBox

Удаление пустой строки в DBGrid
Здравствуйте, эксперты! Подскажите, пожалуйста, как поступить в следующей ситуации. Есть на форме...

Удаление пустой строки в текстовом файле
$filecontent = Get-Content $file.FullName подскажите как удалить в текстовом файле все первые...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru