Вопрос по TMemo и...

[John_chek]

да так не работает, можно:

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 вопроса не понятно, что нужно просто вывести любую постоянную строку? тогда в чем проблема???

[Volkogriz]

Доброе время суток!!!
Всем спасибо вы все мне очень памагли!!!
Зделал всё оказалась очень просто :

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!

[dron-s]

а нельзя разве написать всё одной строкой?
типа такого

Memo1.Lines.Text := ExtractFilePath(OpenDialog1.FileName)+ ' ' +
                             ExtractFileName(OpenDialog1.FileName)+ ' '+
                             'DATA'+ ' '+'TDATA';
Memo1.Lines.SaveToFile('FileName.txt');

очень даже просто...

[Volkogriz]

Доброе время суток!!!
Всем спасибо разобрался вот только засада с расширением в первой строке!!!
Памагите в первай строке избавится от раширение ни как не магу плиз!!!
чтобы не делал ошибки выдаёт!!!

if not OpenDialog1.Execute then exit;
Memo1.Lines.Add(ExtractFileName(OpenDialog1.FileName)+ ' '+  'DATA'+ ' '+'TDATA'+ ' ' + ExtractFilePath(OpenDialog1.FileName)+ExtractFileName  (OpenDialog1.FileName));

За рание блогодарен!!!
С уважением Volkogriz!

[Sibedir]

Если я правильно понял, нужно имя файла без расширения:

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;

[Volkogriz]

Всем спасибо!!!
Зделал так:

if not OpenDialog1.Execute then exit;
Memo1.Lines.Add(ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '') + ' '+ 'TDATA'+ ' ' +ExtractFilePath(OpenDialog1.FileName)+ExtractFileName(OpenDialog1.FileName));

Всё работает тема закрыта!
С уважением Volkogriz!