Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2007, 23:37   #11
John_chek
Форумчанин
 
Аватар для John_chek
 
Регистрация: 24.01.2007
Сообщений: 108
По умолчанию

да так не работает, можно:
Код:
procedure TFstart.Button1Click(Sender: TObject);
begin
if not DM.OpenDialog1.Execute then exit;
Memo1.Text :=  ExtractFilePath(DM.OpenDialog1.FileName)+ExtractFileName(DM.OpenDialog1.FileName);
Memo2.Text :=  ExtractFileName(dm.OpenDialog1.FileName);
end;
На счет 3 и 4 вопроса не понятно, что нужно просто вывести любую постоянную строку? тогда в чем проблема???
John_chek вне форума Ответить с цитированием
Старый 03.12.2007, 11:54   #12
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Доброе время суток!!!
Всем спасибо вы все мне очень памагли!!!
Зделал всё оказалась очень просто :
Код:
if not OpenDialog1.Execute then exit;
Memo1.Lines.Add( ExtractFilePath(OpenDialog1.FileName));
Memo2.Lines.Add(ExtractFileName(OpenDialog1.FileName));
Memo3.Lines.Add('DATA');
Memo4.Lines.Add('TDATA');
Памагите ешо сахранением пажалусто нужно из 4 мемов сахранить В текст 1 строкой типа "explorer DATA1 DATA2 C:\WINDOWS\explorer.exe" !!
у меня не получается!!!!
За рание блогодарен!!!
С уважением Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 03.12.2007, 12:40   #13
dron-s
Форумчанин
 
Регистрация: 04.03.2007
Сообщений: 615
По умолчанию

а нельзя разве написать всё одной строкой?
типа такого
Код:
Memo1.Lines.Text := ExtractFilePath(OpenDialog1.FileName)+ ' ' +
                             ExtractFileName(OpenDialog1.FileName)+ ' '+
                             'DATA'+ ' '+'TDATA';
Memo1.Lines.SaveToFile('FileName.txt');
очень даже просто...
dron-s вне форума Ответить с цитированием
Старый 03.12.2007, 18:50   #14
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Доброе время суток!!!
Всем спасибо разобрался вот только засада с расширением в первой строке!!!
Памагите в первай строке избавится от раширение ни как не магу плиз!!!
чтобы не делал ошибки выдаёт!!!
Код:
if not OpenDialog1.Execute then exit;
Memo1.Lines.Add(ExtractFileName(OpenDialog1.FileName)+ ' '+  'DATA'+ ' '+'TDATA'+ ' ' + ExtractFilePath(OpenDialog1.FileName)+ExtractFileName  (OpenDialog1.FileName));
За рание блогодарен!!!
С уважением Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Старый 03.12.2007, 21:21   #15
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,242
По умолчанию

Если я правильно понял, нужно имя файла без расширения:
Код:
var
  fn, p, n: String;
  i: Integer;
begin
  if OpenDialog1.Execute then begin
    fn := OpenDialog1.FileName;
    p := ExtractFilePath (fn);
    n := ExtractFileName (fn);

    for i := Length (n) downto 1 do begin
      if n [i] = '.' then begin
        n := Copy (n, 1, i-1);
      end;
    end;

    Label1.Caption := p + n;
  end;
end;
Sibedir вне форума Ответить с цитированием
Старый 05.12.2007, 01:44   #16
Volkogriz
Форумчанин
 
Аватар для Volkogriz
 
Регистрация: 11.10.2007
Сообщений: 384
По умолчанию

Всем спасибо!!!
Зделал так:
Код:
if not OpenDialog1.Execute then exit;
Memo1.Lines.Add(ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '') + ' '+ 'TDATA'+ ' ' +ExtractFilePath(OpenDialog1.FileName)+ExtractFileName(OpenDialog1.FileName));
Всё работает тема закрыта!
С уважением Volkogriz!
Не количеством плюсов измеряется репутация человека...!
Volkogriz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TMemo Valera Помощь студентам 14 04.08.2008 10:56
TMemo terminadoor Помощь студентам 10 23.07.2008 19:41
Фон в TMemo BlackOmen Общие вопросы Delphi 3 18.06.2008 22:34
Печать TMemo Патрон Общие вопросы Delphi 10 01.05.2008 23:37
Tmemo BlackOmen Общие вопросы Delphi 2 16.03.2008 21:03