ТMemo и файлы...

[GAGARIN-NEW]

Этот вопрос наверно задаётся каждую неделю но теперь спрошу у вас и я ...
Как загрузить/сохранить текст в/из любово файла(например txt;thml;bat;db) ?? Естественно все представленные будут содержать только текстовую информацию...

С использованием 1 Edit (путь к существ. файлу или путь для создания этого же файла ) , 1 Memo (Для редактирования и загрузки в него и сохранения текста из него текста в файл)

И ещё подскажите плиз как мне передать этот текст построчно по сети с использованием IdUDPClient

1 строчку я передаю так : IdUDPClient1.Send('тут мой текст'); а как передать все строки ?

Если эта тема уже подробно обсуждалась киньте ссылку плс.

[GAGARIN-NEW]

а вот загрузку нашол....

procedure InsertFileInMemo(Memo: TMemo; FileName: string;
  ReplaceSel: Boolean);
var
  Stream: TMemoryStream;
  NullTerminator: Char;
begin
  Stream := TMemoryStream.Create;
  try
    Stream.LoadFromFile(FileName);
     Stream.Seek(0, 2);
    NullTerminator := #0;
    Stream.Write(NullTerminator, 1);
     if not ReplaceSel then
      Memo.SelLength := 0;
    SendMessage(Memo.Handle, EM_ReplaceSel, 0,
      LongInt(Stream.Memory));
  finally
    Stream.Free;
  end;
end;

а терь подскажите плс как по сетке переправить каждую строчку из Memo и как сохранить из Memo в файл построчно ? или как загнать мемо в переменную ТStrings и потом эту переменную сохранить в файл ???

заранее БЛАГОДАРЕН

[GAGARIN-NEW]

Я сам спрашиваю и сам отвечаю ...
Вот написал и пересылку...

procedure TForm1.Button4Click(Sender: TObject);
var
s,linenumb:integer;
begin
memo1.Enabled:=false;// чтобы вовремя пересылки случаем не попортить текст... =)
s:=memo1.Lines.Count;
linenumb:=0;
while s <> linenumb do
begin
IdUDPClient1.Send(memo1.LineS[linenumb]);
linenumb:=linenumb+1;
end;
memo1.Enabled:=true;
end;

НУ а как теперь её сохранить то в файл ???

[Andrei]

Сообщение от GAGARIN-NEW

а вот загрузку нашол....

а терь подскажите плс как по сетке переправить каждую строчку из Memo и как сохранить из Memo в файл построчно ? или как загнать мемо в переменную ТStrings и потом эту переменную сохранить в файл ???

заранее БЛАГОДАРЕН

Ну, зачем так сложно?
Содержимое (свойство Lines) компонента TMemo (TRichEdit) представляет собой переменную типа TStrings. Поэтому:

Memo1.Lines.LoadFromFile('myfile') - загружает файл в Memo
Memo1.Lines.SaveToFile('myfile') - сохраняет Memo в файл

Или делай с этой переменной что хочешь.

PS: А для загрузки/сохранения файла на диск, IMHO, лучше использовать компонент TOpenDialog. Тогда это будет выглядеть примерно так:

if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OenDialog1 .FileName)

[GAGARIN-NEW]

не TOpenDialog - неюзал и скорей небуду...на скок я понял это всеголишь красивый диалог функция которого указать имя и путь к файлу...а это я задаю сам причем мне необходимо чтобы путь с файлом создавался автоматически ... непомню как там переменную myfile определить как файл...точнее как присвойить ей и автоматически создать если его несуществует ..
Помню что есть слово Assign или чтото вроде....

[Andrei]

Сообщение от GAGARIN-NEW

не TOpenDialog - неюзал и скорей небуду...на скок я понял это всеголишь красивый диалог функция которого указать имя и путь к файлу...а это я задаю сам причем мне необходимо чтобы путь с файлом создавался автоматически ... непомню как там переменную myfile определить как файл...точнее как присвойить ей и автоматически создать если его несуществует ..
Помню что есть слово Assign или чтото вроде....

Memo1.Lines.SaveToFile('myfile')

В этом выражении 'myfile' означает текстовая переменная с полным именем файла, например:

Memo1.Lines.SaveToFile('C:/MyDocum/MyText.txt')

Если файл с таким именем не найден, то он будет создан, а если уже имеется, то содержимое его будет заменено текстом из Memo.
Причем, имей ввиду, что без всяких диалогов и вопросов о том изменять содержимое файла или нет. Всяческие проверки и диалоги - это на твоей совести.

Надеюсь, мы говорим об одном и том же?

[GAGARIN-NEW]

if fileexists('myfile.txt') then
Memo1.Lines.LoadFromFile('myfile.tx t');
ТАк правильнее =) а если несуществует то тем способом выдаётся ошибка а это убивает всю мою прогу.... но всёравно сэнкс..

[mihali4]

Сообщение от GAGARIN-NEW

if fileexists('myfile.txt') then
Memo1.Lines.LoadFromFile('myfile.tx t');
ТАк правильнее =) а если несуществует то тем способом выдаётся ошибка а это убивает всю мою прогу.... но всёравно сэнкс..

Вообще-то, если посмотреть внимательно, то ANDREI дал вам готовое решение для сохранения файла, в этом случае проверка на его существование совершенно не нужна. Так что можно было просто поблагодарить, без "но все равно"
А возникавшая ошибка, смею вас заверить, целиком на вашей совести...

[GAGARIN-NEW]

и почемуже она на моей вине ??????????
я же сказал что мне надо чтобы файл сохранялся везде где разрешена запись на диск ! тоесть если у меня будет путь C:/elkjee/eh/sh/s/reh/estj/sdt/jykj/gukd/ то и там он должен сохранится/загрузится + если такой директории несуществует вылазит ошибка !!!! и отнют не по маей вине !

[Stilet]

Ну не по вине же Делфы )
Делай так:


sp:=ExtractFilePath(paramstr(0));// ну или полный путь к диру где он лежит
if fileexists(sp+'myfile.txt') then
Memo1.Lines.LoadFromFile(sp+'myfile .txt');