» Вопросы по Delphi

STEEL
Как обычный ресурс с данными, потом сохраняешь на диск и запускаешь.

На входе есть строчка, которая разделена #10 символами, необходимо всё что между #10 раскидать по отдельным строчкам, думаю задача ясно, для этого TStringList использую. Осталось самое главное, что-то не получается у меня с помошью strmove, strpos это реализовать. Поможите плиз


Код:
function TForm1.Str2Br(s: String): String;
var i : Integer, StrList : TStringList;

begin
StrList := TStringList.Create;

for i := 0 to Length(s)-1 do
begin
if s[i] = #10 then begin

Strlist.add( );

end;

end;

STEEL

Цитата:

На входе есть строчка, которая разделена #10 символами

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

антикварная rxLib
rxStrUtils.pas


Цитата:

function WordCount(const S: string; const WordDelims: TCharSet): Integer;
var
SLen, I: Cardinal;
begin
Result := 0;
I := 1;
SLen := Length(S);
while I <= SLen do begin
while (I <= SLen) and (S[I] in WordDelims) do Inc(I);
if I <= SLen then Inc(Result);
while (I <= SLen) and not(S[I] in WordDelims) do Inc(I);
end;
end;

Цитата:

function ExtractWord(N: Integer; const S: string;
const WordDelims: TCharSet): string;
var
I: Integer;
Len: Integer;
begin
Len := 0;
I := WordPosition(N, S, WordDelims);
if I <> 0 then
{ find the end of the current word }
while (I <= Length(S)) and not(S[I] in WordDelims) do begin
{ add the I'th character to result }
Inc(Len);
SetLength(Result, Len);
Result[Len] := S[I];
Inc(I);
end;
SetLength(Result, Len);
end;

Цитата:

// Функция аналогична функции ExtractWord.
// В отличии от нее воспринимает 2 символа из Delims, идущих подряд,
// как разделители между пустой строкой.
// думается, что DelimitedCount (аналог WordCount) можно не приводить
function ExtractDelimited(N: Integer; const S: string;
const Delims: TCharSet): string;
var
CurWord: Integer;
I, Len, SLen: Integer;
begin
CurWord := 0;
I := 1;
Len := 0;
SLen := Length(S);
SetLength(Result, 0);
while (I <= SLen) and (CurWord <> N) do begin
if S[I] in Delims then Inc(CurWord)
else begin
if CurWord = N - 1 then begin
Inc(Len);
SetLength(Result, Len);
Result[Len] := S[I];
end;
end;
Inc(I);
end;
end;

Здравия желаю All.

Есть такая необходимость, как выводить на печать текстовые строки, по мере их поступления. Т.е обычный лог.
Не знаю с какой стороны к этому вопросу подойти. Исходя из философии windows, нужно подготовить страницу к печати и за один раз напечатать, а мне нужно построчно, как раньше в DOS было вместе с Escape последовательностями.

PS
WinXP SP2 Eng;
D7,D9;

Bol970
Ставь матричник и печатай.

PowerChute

Реально новых матричных принетров с ESC/2, нет.

Как-то ведь windows печатает в DOS моде?

Тогда посылай на печать и как только буфер наполнится на страницу он сам тебе выплюнет лист.

PowerChute

Мысли у нас работают в одном направлении, я то же так считаю.

Но мне нужно, есть событие - напечатал строку, жду следующего события, это нужно, чтобы
событие "точно" не потерялось, типа система безопасности. Т.е. в последствие, что бы не случилось с компьютером, последнее событие напечатано.

Тогда не знаю. Кроме матричного принтера ничего на ум не приходит. Может быть какие-нибудь струйники по принципу матричного работают.

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

PowerChute
Писать события в базу данных и в отдельном поле указывать напечатано ли. Заполнять только после выхода листа. Печатать после заполнения листа. При сбоях смотреть в базе, что не напечатано. Издеваться так над принтером нехорошо.

Almaz
Спасиб. Остановился на StringList.Delimiter

Другая задача, необходимо в трей помещать текст, причем при срабатывании таймера обновлять его. 8( Есть какие-нибудь идеи?

STEEL

Цитата:

Другая задача, необходимо в трей помещать текст, причем при срабатывании таймера обновлять его

Трей - это который систем трей (там где часики)? Если да, то есть тема, как вывести текст в трей, буквально не давно отвечал в ней да и сам автор по-другому решил задачу, посмотри там готовые решения. Только в трей можно вывести только то, что разместится в иконке, либо рисовать на канве трея (а это не есть гут, так как придется постоянно перерисовывать).

evle
Ты маленько не по адресу
Это Bol970 хочет так печатать.

STEEL

Цитата:

Остановился на StringList.Delimiter

а я искал эту штуку в дельфийской StrUtils, не нашел и сунул тебе куски из rxLib
помню, что есть такое, а найти никак не могу
правильное название: TStrings.DelimitedText
кстати, в rxLib чуть лучше, у них Delimiter - set of char. например, можно и табуляцию, и пробел отлавливать одновременно

evle


Цитата:

Писать события в базу данных и в отдельном поле указывать напечатано ли. Заполнять только после выхода листа.

Не подходит, база есть но она удаленная, на другой машине, а на этой нельзя ставить потому как, чем больше прог тем больше багов.


Цитата:

Издеваться так над принтером нехорошо.

А что делать, windows над нами издевается, а мы над переферией. Ж;)

А если серьезно, то у епсонов есть esc/p последовательность команд, которые позволяют управляю принтером, в достаточно полной мере.

Я вот думаю, может драйвер специальный для windows соорудить?

PowerChute

Цитата:

Может быть какие-нибудь струйники по принципу матричного работают.

А они, по-моему, все так работают - струйнику не нужно формировать сразу всю страницу, он строками печатает.

YurikGL

Цитата:

лазерники сначала загружают в свою память всю страницу и лишь потом ее печатают

Да, и объехать это не получится.

Dim2004

Цитата:

он строками печатает

Не совсем строками. Правильней сказать "горизонтальными полосами". Хотя при определённом шрифте будет "строками"

Bol970

Цитата:

Реально новых матричных принетров с ESC/2, нет.

А разве Epson LX-300+ не поддерживает управляющие символы? не верю :))

Народ а можно ли стандартными компонентами Делфи вставить в проект анимированный GIF файл?

dartvaider

Цитата:

Народ а можно ли стандартными компонентами Делфи вставить в проект анимированный GIF файл?

А почему бы и нет, используй Image, выбирай GIF-файл, а дальше делфя сама подключит модуль GIFImage... и всё...

l
Цитата:

А почему бы и нет, используй Image, выбирай GIF-файл, а дальше делфя сама подключит модуль GIFImage... и всё...

а нет там гифа

dartvaider

Цитата:

а нет там гифа

да ну
Image с вкладки Additional...
у меня в Picture доступные расширения *.gif, *.ani, *.jpg, *.jpeg и другие...

Толи лыжи не едут, толи..........
ГДЕ?

dartvaider

Цитата:

Толи лыжи не едут, толи..........

Лыжи у тебя не той системы...

Цитата:

ГДЕ?

Смотри свойство компонента - Отображение картинки...

P.S.От DroN_S: Меняй лыжи

Я же выложил линк вот он http://www.anticlubtimer.narod.ru/delphi.jpg
на картинку нету там гифа

dartvaider
Какую версию делфи юзаешь?

Цитата:

dartvaider
Какую версию делфи юзаешь?

7-й Ентерпрайс...

dartvaider
Станно, очень странно, у меня всё нормально....

Цитата:

dartvaider
Станно, очень странно, у меня всё нормально....

Ну я как то давненько вставлял как то gif cтандартными средствами, но он был не анимированный а просто первый кадр и фон белый , хотя там фона вообще не было!