Мелкие вопросы "походу"

Вверх ↑

Форумы Между деломМелкие вопросы "походу" ← Ctrl1 2 3 4 5...20 21 22 232425 26 27Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26151

Рейтинг: 2127

#346: 2011-04-27 16:57:26 ЛС | профиль | цитата

user_asm писал(а):

Каким компонентом реализовать поиск файла в папке

Привет. А что FileSearch не катит уже

карма: 22

Ответов: 1058

Рейтинг: 76

#347: 2011-04-27 17:15:43 ЛС | профиль | цитата

user_asm Может и глупость, но я подумал чтобы для каждого юзера делать копию шаблона. Типа ввел свое имя, создалась временная директория "~имя юзера" и пусть работает себе на здоровье.
Тогда и проверять ничего ненадо, и одновременно каждий юзер будет работать со своим шаблоном.

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

карма: 0

Ответов: 758

Рейтинг: 112

#348: 2011-04-27 18:17:46 ЛС | профиль | цитата

карма: 1

Ответов: 1321

Рейтинг: 37

#349: 2011-04-27 22:00:14 ЛС | профиль | цитата

code

procedure THiAsmClass.doCode;
const
cod:array[1..3] of string[4]=('xw','vk','co');
tran:array[1..3] of string[4]=('rf','tj','yy');
var s,st:string;
i,k:integer;
begin
s:=ReadString(_Data,Str);
for i:=1 to Length(s) do
begin
k:= Pos(s[i],cod);
If k>0 then st:=st+tran[k]
else st:=st+s[i];
end;
_hi_onEvent(Result,st);
end;

Что нужно добавить в код
чтобы он работал, нужно именно с массивом(Не с строками)

карма: 0

Ответов: 8926

Рейтинг: 823

#350: 2011-04-27 22:11:26 ЛС | профиль | цитата

Roma, k:= Pos(s[i],cod); --
for j=1 to count(cod) do k:=Pos(s[i],cod[j]);

карма: 19

Ответов: 952

Рейтинг: 4

#351: 2011-04-27 22:18:54 ЛС | профиль | цитата

tom-it,
Если так делать то слишком много телодвижений. Надо определить имя юзера, для этого всем надо раздать свои связки логинпасс, или хотя бы логин. Внести изменения на вход в прогу.
И так я уже прогу по функционалу вдвое увеличил. Это БД на SQLite. Поэтому пока нет желания снова перелопачивать код.
Тут надо как-то иначе подойти .... пока ищу варианты как.

nesco,
Здесь в параметрах поиска только расширение. А мне нужно полное имя "~$blank.doc"
------------ Дoбавленo в 22.18:
Кстати с шаблонами еще и не такой косячек есть. У меня там уже 1 проверка встроена - на открытый Word. Иначе компоненты не могут корректно работать с шаблоном.

карма: 0

Ответов: 1321

Рейтинг: 37

#352: 2011-04-27 22:25:02 ЛС | профиль | цитата

Леонид,

code

unit HiAsmUnit;

interface

uses kol,Share,Debug,HIStreamConvertor;

type
THiAsmClass = class(TDebug)
private

public
Str,Result:THI_Event;
procedure doCode(var _Data:TData; Index:Word);
end;

implementation

procedure THiAsmClass.doCode;
const
cod:array[1..3] of string[4]=('a','c','n');
tran:array[1..3] of string[4]=('р','и','g');
var s,st,hst:string;
i,k,j:integer;
begin
s:=ReadString(_Data,Str);
for i:=1 to Length(s) do
begin
for j=1 to count(cod) do k:=Pos(s[i],cod[j]);
If k>0 then st:=st+tran[k]
else st:=st+s[i];
end;
_hi_onEvent(Result,st);
end;

end.

Результат

C:\Program Files\HiAsm\Elements\delphi\code\HiAsmUnit.pas(28) Error: For loop control variable must be simple local variable
C:\Program Files\HiAsm\Elements\delphi\code\HiAsmUnit.pas(28) Error: 'TO' expected but 'DO' found
C:\Program Files\HiAsm\Elements\delphi\code\HiAsmUnit.pas(30) Error: Incompatible types: 'Boolean' and 'procedure, untyped pointer or untyped parameter'
------------ Дoбавленo в 22.25:
То исправил
но

code

unit HiAsmUnit;

interface

uses kol,Share,Debug,HIStreamConvertor,Windows;

type
THiAsmClass = class(TDebug)
private

public
Str,Result:THI_Event;
procedure doCode(var _Data:TData; Index:Word);
end;

implementation

procedure THiAsmClass.doCode;
const
cod:array[1..3] of string[4]=('a','c','n');
tran:array[1..3] of string[4]=('р','и','g');
var s,st,hst:string;
i,k,j:integer;
begin
s:=ReadString(_Data,Str);
for i:=1 to Length(s) do
begin
for j:=1 to count(cod) do k:=Pos(s[i],cod[j]);
If k>0 then st:=st+tran[k]
else st:=st+s[i];
end;
_hi_onEvent(Result,st);
end;

end.

C:\Program Files\HiAsm\Elements\delphi\code\HiAsmUnit.pas(28) Error: Undeclared identifier: 'count'

карма: 0

Разработчик

Ответов: 26151

Рейтинг: 2127

#353: 2011-04-27 22:27:54 ЛС | профиль | цитата

Roma писал(а):

Undeclared identifier: 'count'

К массиву, для определения длины, надо применять Length, а не count

карма: 22

Ответов: 1321

Рейтинг: 37

#354: 2011-04-27 22:29:22 ЛС | профиль | цитата

nesco, это ты Леониду говори

карма: 0

Разработчик

Ответов: 26151

Рейтинг: 2127

#355: 2011-04-27 22:30:12 ЛС | профиль | цитата

Roma писал(а):

это ты Леониду говори

Я просто ответил, кому надо, тот прочитает

карма: 22

Ответов: 1321

Рейтинг: 37

#356: 2011-04-27 22:34:23 ЛС | профиль | цитата

code

unit HiAsmUnit;

interface

uses kol,Share,Debug,HIStreamConvertor,Windows;

type
THiAsmClass = class(TDebug)
private

public
Str,Result:THI_Event;
procedure doCode(var _Data:TData; Index:Word);
end;

implementation

procedure THiAsmClass.doCode;
const
cod:array[1..3] of string[4]=('a','c','n');
tran:array[1..3] of string[4]=('р','и','g');
var s,st,hst:string;
i,k,j:integer;
begin
s:=ReadString(_Data,Str);
for i:=1 to Length(s) do
begin
for j:=1 to Length(cod) do k:=Pos(s[i],cod[j]);
If k>0 then st:=st+tran[k]
else st:=st+s[i];
end;
_hi_onEvent(Result,st);
end;

end.

Теперь переводит начиная с 3-го
n = р
Почему?

карма: 0

Ответов: 1321

Рейтинг: 37

#357: 2011-05-01 10:32:13 ЛС | профиль | цитата

что нужно сделать чтобы при выводе нового процесса его выдовало в поток

code_23630.txt

карма: 0

файлы: 1

code_23630.txt [521B] [178]

Ответов: 4641

Рейтинг: 334

#358: 2011-05-01 11:21:02 ЛС | профиль | цитата

Roma, примени другой компонент. ChangeMon
Ты хоть читай что применяешь!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Голосовали:

Roma

Ответов: 1321

Рейтинг: 37

#359: 2011-05-01 14:58:39 ЛС | профиль | цитата

У меня вечные проблеммы с коммандной строкой
code_23642.txt
почему неработает?

карма: 0

файлы: 1

code_23642.txt [485B] [226]

Ответов: 4641

Рейтинг: 334

#360: 2011-05-01 15:59:36 ЛС | профиль | цитата

Roma писал(а):

почему неработает?

ПУСК - Выполнить cmd.exe del c:1.txt
Работает? Если нет то почему тут должно работать?
------------ Дoбавленo в 15.59:
есть
doConsoleInput изучаем!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Форумы Между деломМелкие вопросы "походу" ← Ctrl1 2 3 4 5...20 21 22 232425 26 27Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)