Несколько вопросов по Delphi 2005

[Nez]

Квэнди, большое спасибо ещё раз, сейчас попробую...

Парни... Я вас очень прошу.. посмотрите.. ничего не могу понять в чём ошибка... суть в том, что в Memo3 в каждой строчке через пробел содержится 4 слова через пробел, их надо скопировать в Edit1,2,3 и 4... И если возле какого-то слова стоит "!", то номер этого слова надо отметить в RadioGroup... Всё просто, но! Вот код:

procedure TForm2.Memo1Click(Sender: TObject); {Когда в Memo1 нажимаешь на строчку}
var
s,t:string;
i,k:integer;
begin

with (Sender as TMemo) do Line := Perform(EM_LINEFROMCHAR, SelStart, 0); {Определяем строчку, на которую нажали}

s:=Memo3.Lines.Strings[Line]; {создаём переменную с соответствующей строкой в Memo3}
For i:=1 to 3 do begin
If Copy(s,1,1)='!' then begin {вот как раз смотрим "!"}
RadioGroup1.ItemIndex:=(i-1); {если ДА, то ставим точку в RadioGroup}
t:=Copy(s,2,1000); {вырезаем этот "!"}
s:=t;
end;
If i=1 then Edit1.text:=Copy(s,1,Pos(s,' ')-1); //Записываем
If i=2 then Edit2.text:=Copy(s,1,Pos(s,' ')-1); //Слово в нужное
If i=3 then Edit3.text:=Copy(s,1,Pos(s,' ')-1); //поле
t:=Copy(s,Pos(s,' ')+1,1000); //Вырезаем из строки
s:=t; //Записанное слово вместе с пробелом
end;
If Copy(s,1,1)='!' then begin //ну и последнее
RadioGroup1.ItemIndex:=3; //слово обрабатываю
Edit4.Text:=Copy(s,2,1000); //отдельно, чтобы
end else Edit4.text:=s; //удобнее было

end;


ВСЁ! Но в итоге получается, что либо вообще ничего не записывается, либо вся строка вместе с пробелами и всем-всем записывается в последнюю строку... В чём проблема?

Квэнди, и вот ещё, твой код, который ты привёл:

DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
{
Здесь делаешь все что тебе необходимо с файлом
}
DragFinish(THandle(Msg.WParam));

Delphi подчеркивает DragQueryFile и DragFinish и соответственно не запускается.... где это надо прописывать? Или может там где-то необходим With ... Do ..

Спасибо.

[Speeker]

If i=1 then Edit1.text:=Copy(s,1,Pos(s,' ')-1); //Записываем
If i=2 then Edit2.text:=Copy(s,1,Pos(s,' ')-1); //Слово в нужное
If i=3 then Edit3.text:=Copy(s,1,Pos(s,' ')-1); //поле

Если не ошибаюсь, между апострофами должны быть пробелы

[Nez]

Между ними и есть пробелы... ну ' '.... не черточку внизу же рисовать

На сто раз просмотрел ничего не получается....

[zetrix]

ТАК, всем слушать:
Все посты по архиватору были перемещены сюда: http://www.programmersforum.ru/showthread.php?t=1532

Весь флуд, оффтоп - удалён, кто испортит мой труд (чистку), того испорчу я!

[Nez]

Пожалуйста ответте на моё сообщение (про непонятки с неработающим кодом и проблемой с "перетаскиванием"). А все новые вопросы буду писать в новых темах.

Спасибо.

[Speeker]

почему то не работает именно Pos. сам пробовал... всегда ноль выдает. Разбивай на слова через If
Разберусь что и почему - напишу

If i=1 then Edit1.text:=Copy(s,1,Pos(' ',s)-1);
If i=2 then Edit2.text:=Copy(s,1,Pos(' ',s)-1);
If i=3 then Edit3.text:=Copy(s,1,Pos(' ',s)-1);// просто в Pos перепутаны местами аргументы

[Nez]

Вот же глупость то какая! Спасибо!

А что там с пертаскиванием? Квэнди, ты где? Неполучается ничего, читай предидущие посты...

Speeker, только теперь знаешь что происходит? В Edit1, Edit2, Edit3 записывается первое слово, а в Edit4 все слова через пробел... ну то есть ак-будто ничего и не резали...

[AVer]

Сообщение от Nez

Speeker, только теперь знаешь что происходит? В Edit1, Edit2, Edit3 записывается первое слово, а в Edit4 все слова через пробел... ну то есть ак-будто ничего и не резали...

После каждой из первых трех строчек напиши

Delete(s,1,Pos(' ',s));

[Квэнди]

Добавь модуль shellapi в uses

[Nez]

Слушайте, ну вот никак не получается у меня реализовать перетаскивание файла на форму...... Вот кусок кода программы:

....
....
  protected
  procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

  private
         { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Line: integer;

implementation

{$R *.dfm}


procedure TForm2.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
{
Здесь делаешь все что тебе необходимо с файлом
}
DragFinish(THandle(Msg.WParam));
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

...
...

Файл не перетаскивается... И можно как-нибудь сделать, чтобы перетаскивался файл только с одним расширением, чтобы другие пога даже гне заморачивалась обрабатывать..... Посмотрите, может чего не хватает.. И ещё: Я так понимаю, что файл будет перетаскиваться на всю форму... А можно сделать, чтобы он перетаскивался конкретно на Memo1?

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