Куча вопросов

← →
-==\AnGnA/==- © (2007-08-02 19:39) [0]

Помогите чайнику (точнее 25%-ному самовару).Вобщем у меня есть несколько вопросов:
1- Есть текстовый файл типа:
данные1(Tab)данные2(Tab)данные3...
данныеN(Tab)(Tab)данные(N+1)...
(Tab)(Tab)данныеХ...
пример:
System Name Name Number Effect names Shader Sound File SndMov Params
НЕГОТОВЫЕ ЭФФЕКТЫ
hit_shine_explosion1 эффект для взрыва плазменной гранаты 5
ExplosionSmokeRing hit_plasma_ring SizeBegin=0.8 SizeRange=7.0 LifeTime=1.2

Причем длина данных может быть >>256 символов. Надо прочитать этот файл записать данные в переменные и создать списки отдельных "столбцов" или создать таблицу. Но с таблицами на "ВЫ" поэтому с ними поподробней. После изменений в соданной таблице или списке все это дело надо записать обратно в файл (причем возможно добавление строки). Если кто не понял и знает игру КДР (Код доступа: Рай) я хочу создать прогу для редактирования скриптов.

2-Я хочу сделать клаву и мне нужно подключить ее к LPT-порту и с помощю проги отслеживать данные приходящие на него (порта) и эмулировать нажатие той или иной клавиши. Желательно все поподробней и еще-бы о том, как послать на эту клаву сигнал.

Прошу не ругаться если вдруг есть подобные темы. Я прошарил не один форум и сайт (в т.ч. и этот), но не нашел подходящей инфы.
Зарание спасибо.
Ваш -==\AnGnA/==-

← →
Zagaevskiy © (2007-08-02 19:44) [1]

> Желательно все поподробней

Ага щас разбежался.
Наивный....

← →
JanMihail © (2007-08-02 20:31) [2]

Ставишь StringGrid на форму задаешь RowCount = 2, Затем кидаешь кнопку и пишешь обработчик OnClick:

procedure TForm1.Button1Click(Sender: TObject); var f: textFile; s: String; x1, x2: Integer; i, j: Integer; begin assignFile(f, "c:\1.txt"); reset(f); repeat readln(f, s); x1 := 1; x2 := 1; for i := 1 to length(s) do begin if s[i] = #9 then begin x2 := i; stringGrid1.Cells[0, StringGrid1.RowCount - 1] := copy(s, x1, x2 - x1); StringGrid1.RowCount := StringGrid1.RowCount + 1; for j := x2 to length(s) do if s[j] <> " " then begin x1 := j + 1; break; end; end; end; until eof(f); closeFile(f); end;

Будет столбик! Дальше сам покумекай!

← →
Zagaevskiy © (2007-08-02 20:43) [3]

Михаил! Вы крутой чувак!

← →
-==\AnGnA/==- © (2007-08-02 20:57) [4]

Thanks!! Пробую разобраться. Если есть еще что-нубудь, а вдруг! Я конечно не требую, но буду благодарен за доп. инфу.

> JanMihail © (02.08.07 20:31) [2]

Добрый! Зачем код дал? тебе кто-нить давал? Вот так сразу, не сказав там хелп почитаей, чё у тебя F1 запала, у Яндекса спроси?

> Zagaevskiy © (02.08.07 21:00) [5]

Мне не давали и я был зол, что мне не давали. Теперь они на моем бывшем месте. Пусть не злятся )))))))))

Куча вопросов Найти похожие ветки