[Mp3]

вот код на сохранения файла

begin
if SaveDialog1.Execute
then Begin
s := TStringList.Create;
s.loadfromfile( savedialog1.FileName );
memo1.lines.Strings[2];
s.Free;
end;

подскажите что надо добавить чтобы он сохранял только 2 строчку из текста(из memo1)

[Bargest]

lines нумеруются с нуля.
Че-то типа

Код:

Memo1.Lines.Add(s.Lines[1]);

(Не помню структуру TStringList, могу ошибаться внутри скобок).

[robt]

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

вот код на сохранения файла

нет тут никакого сохранения,вообще

[Mp3]

у меня всё сохраняет попробуй сам%)
bargest не пашет(

[angvelem]

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

у меня всё сохраняет попробуй сам%)
bargest щас попробую

вот код на сохранения файла

PHP код:

begin
if SaveDialog1.Execute
then Begin
s := TStringList.Create;
s.loadfromfile( savedialog1.FileName ); // здесь!!!
memo1.lines.Strings[2];
s.Free;
end; 


Конечно сохраняет, а как же.

[Bargest]

Я подумал, что имеется в виду сохранение в Memo.

[Mp3]

Конечно сохраняет, а как же.

не понял смеха!%)
и как это понять?

s.loadfromfile( savedialog1.FileName ); // здесь!!!

здесь всмысле продолжение кода??или здесь что то изменить и получится сохранить 2 строку!??!?!

[~TB~]

Может как-то так:

Код:

begin
 if SaveDialog1.Execute then
 begin
  s := TStringList.Create;
  s.Add(Memo1.lines.Strings[1]);
  s.SaveToFile(SaveDialog1.FileName);
  FreeAndNil(s);
 end;
end;

[PS11011010]

Код:

s.loadfromfile( savedialog1.FileName );

LOAD FROM FILE. Я нигде и никогда не видел, чтобы таким образом обозначали процедуру сохранения файла.

подскажите что надо добавить чтобы он сохранял только 2 строчку из текста(из memo1)

Код:

s := TStringList.Create;
s.Clear;
s.Add(memo1.Lines[1]);
s.SAVETOFILE('filename');

[Mp3]

спасибо...тема закрыта