[kobz]

Всем доброго времени суток!
Надо сделать следующее: memo содержит какое-то кол-во строк, как выбрать определенную строку и сохранить ее в файл, причем сохранить ее в конец файла, т. е. не затирая предыдущую информацию. Как-то так...
Подскажите пожалуйста как можно сделать такое. Спасибо.

[M.A.D.M.A.N.]

Был недавно такой вопрос, поищи, там готовое решение есть.

[NumLock]

http://www.delphisources.ru/forum/sh...54&postcount=9
строка Memo1.Lines[Memo1.CaretPos.Y]

[kobz]

Спасибо NumLock за код. Разбираюсь с функциями WinApi
Сделал так:

Код:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  hFile: THandle;
  Dummy: Cardinal;
   s:string;
begin
 if Button  = mbLeft then
 begin
  hFile:=CreateFile('ShazamID.txt', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
  if hFile<>INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hFile, 0, nil, FILE_END);
    s:= Memo1.Lines[Memo1.CaretPos.Y]+#13#10;
    WriteFile(hFile, PChar(s)^, Length(s), Dummy, nil);
    CloseHandle(hFile);
  end;
 end;
end;

Memo: Я встретил Вас и все былое
В файле получается см. рисунок
Что не так?

[poli-smen]

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

.....
Memo: Я встретил Вас и все былое
В файле получается см. рисунок
Что не так?

Это значит у тебя Delphi юникодная. Если в юникодной Delphi работаешь с Ansi-строками, то и объявляй их как AnsiString:

Код:

var
  s: AnsiString; // Вместо просто string