Здравствуйте...
Memo1.Lines.SaveToFile('Test.txt');
Memo1.Lines.LoadFromFile('Test.txt');
Хочу вот эти две строки сделать с компонентом Edit.
То есть сохранить и загрузить текст из текстового файла.
Так как мне это сделать ? Прошу код. Спасибо.
Примечание:
У вас у всех ошибки в кодах (я не чего не понял !!!) Но вы дали мне толчок.
После Часа мышления я наконец та всё сделал.
Спасибо вам всем.
А вот и код. Прямой из Delphi скопировал и вставил. Вы тоже так делайте.
Когда вы пишите в ручную прямо сюда то вы ошибки делаете, а потом мне приходится разбираться 5 часов. До свидание.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
S: TStringList;
GetStr: String;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
S:=TStringList.Create;
S.LoadFromFile('SaveLoad.txt');
Edit1.Text:=S.Text;
GetStr:=Edit1.Text;
Delete(GetStr,Length(GetStr),1);
Delete(GetStr,Length(GetStr),1);
Edit1.Text:=GetStr;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
S:=TStringList.Create;
S.Text:=Edit1.Text;
S.SaveToFile('SaveLoad.txt');
Edit1.Clear;
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.