Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
-==\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!! Пробую разобраться. Если есть еще что-нубудь, а вдруг! Я конечно не требую, но буду благодарен за доп. инфу.

---

← →
Zagaevskiy ©   (2007-08-02 21:00) [5]

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

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

---

← →
JanMihail ©   (2007-08-02 22:01) [6]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.08.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 1.069 c