Найдено 18 результатов
- 08.11.2017 10:58:28
- Форум: Free Pascal Compiler
- Тема: Копирование объектов TStringList
- Ответы: 11
- Просмотры: 13547
Re: Копирование объектов TStringList
Для тех кто в танке непонятно. Спасибо.
- 08.11.2017 10:12:49
- Форум: Free Pascal Compiler
- Тема: Копирование объектов TStringList
- Ответы: 11
- Просмотры: 13547
Re: Копирование объектов TStringList
Спасибо ответившим, BeginUpdate, EndUpdate, что делают? Всегда Add ,без них делал.
- 07.11.2017 21:31:49
- Форум: Free Pascal Compiler
- Тема: Копирование объектов TStringList
- Ответы: 11
- Просмотры: 13547
Re: Копирование объектов TStringList
В си крест на крест, не к ночи помянуто, есть присваювающий конструктор. Он выполняется при присваивании и копирует содержимое одного объекта в другой. А тут при присваивании просто копируется указатель/ссылка (как правильно?), получается один объект с двумя именами. Изменяя объект с одним именем мы ...
- 07.11.2017 21:09:51
- Форум: Free Pascal Compiler
- Тема: Копирование объектов TStringList
- Ответы: 11
- Просмотры: 13547
Копирование объектов TStringList
С ужосом узнал что нет копирования объектов. Всё ручками? Где гуманизм
Или всё таки ныне можно скопировать?
Как правильно копировать отсортированный TStringList? Сначала построчно в не отсортированную копию, а потом поставить Sorted в True или сразу фигачить в отсортированную копию? При установке ...
Или всё таки ныне можно скопировать?
Как правильно копировать отсортированный TStringList? Сначала построчно в не отсортированную копию, а потом поставить Sorted в True или сразу фигачить в отсортированную копию? При установке ...
- 07.11.2017 16:03:19
- Форум: Free Pascal Compiler
- Тема: Сравнение двух TStringList на совпадение строк
- Ответы: 13
- Просмотры: 18367
Re: Сравнение двух TStringList на совпадение строк
Добавить списки к списку можно одной операцией или цикл нужен?
- 07.11.2017 09:11:27
- Форум: Free Pascal Compiler
- Тема: Сравнение двух TStringList на совпадение строк
- Ответы: 13
- Просмотры: 18367
Re: Сравнение двух TStringList на совпадение строк
Так N квадрат времени надо, лучше отсортировать и на соответсвующих позициях сравнивать. Есть ли способ турусы не разводить?
- 07.11.2017 08:08:06
- Форум: Free Pascal Compiler
- Тема: Сравнение двух TStringList на совпадение строк
- Ответы: 13
- Просмотры: 18367
Сравнение двух TStringList на совпадение строк
Как правильно сравнить два объекта TStringList на совпадение строк? Количество строк одинаковое, порядок может отличатся. Повторяющихся строк нет.
- 06.11.2017 22:28:33
- Форум: Free Pascal Compiler
- Тема: Получить список COM портов
- Ответы: 11
- Просмотры: 29606
Re: Получить список COM портов
Спасибо. Простое и очевидное решение - признак мастерства.
- 06.11.2017 21:54:35
- Форум: Free Pascal Compiler
- Тема: Tstrings вызывает SIGSEGV
- Ответы: 2
- Просмотры: 4462
Tstrings вызывает SIGSEGV
сообщение о ошибке:
Проект project1 вызвал класс исключения 'External: SIGSEGV'.
В файле 'unit1.pas' на строке 39:
n := ports.Count;
код
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
{ TForm1 ...
Проект project1 вызвал класс исключения 'External: SIGSEGV'.
В файле 'unit1.pas' на строке 39:
n := ports.Count;
код
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
{ TForm1 ...
- 06.11.2017 21:26:08
- Форум: Free Pascal Compiler
- Тема: Получить список COM портов
- Ответы: 11
- Просмотры: 29606
Re: Получить список COM портов
Тогда, неправильный. Я ещё смотрю в сторону BaseUnix, там похоже много всего хорошего.
P. S. Вы ничего не видите, потому что Arduino не подсоединили! Так и задумано.
P. S. Вы ничего не видите, потому что Arduino не подсоединили! Так и задумано.
- 06.11.2017 16:48:07
- Форум: Free Pascal Compiler
- Тема: Получить список COM портов
- Ответы: 11
- Просмотры: 29606
Re: Получить список COM портов
Спасибо, пригодится.
Сделал уже так:
{ for Linux }
procedure TForm1.Read_port_list;
var
Info : TSearchRec;
Count : Longint;
begin
ComboBox1.Items.Clear;
Count := 0;
if FindFirst('/dev/tty???*', faAnyFile, Info)=0 then
begin
repeat
inc(Count);
with Info do
begin ...
Сделал уже так:
{ for Linux }
procedure TForm1.Read_port_list;
var
Info : TSearchRec;
Count : Longint;
begin
ComboBox1.Items.Clear;
Count := 0;
if FindFirst('/dev/tty???*', faAnyFile, Info)=0 then
begin
repeat
inc(Count);
with Info do
begin ...
- 06.11.2017 08:13:17
- Форум: Free Pascal Compiler
- Тема: Получить список COM портов
- Ответы: 11
- Просмотры: 29606
Re: Получить список COM портов
А как из команды получить результат в строку?
- 05.11.2017 18:32:59
- Форум: Free Pascal Compiler
- Тема: Получить список COM портов
- Ответы: 11
- Просмотры: 29606
Получить список COM портов
Как получить список COM портов для Linux. GetSerialPortNames из synaser в Linux не работает, как и написано в исходнике.
- 26.10.2017 22:18:29
- Форум: Lazarus
- Тема: TCart задание положения тиков
- Ответы: 0
- Просмотры: 2728
TCart задание положения тиков
Как на оси задать интервал между тиками (Marks) и положение тиков? Например чтобы тики были с координатами -2.0 1.0 0.0 2.0
- 26.08.2012 11:39:07
- Форум: Lazarus
- Тема: Управление выделением и задание цвета строк в StringGrid
- Ответы: 4
- Просмотры: 5032
Re: Управление выделением и задание цвета строк в StringGrid
Спасибо, разбираюсь. А это где нибудь описано, кроме исходника grids.pas? 11163 строки и ни одного комментария.
