Проблема с Memo

Zakharyan · #1 02.08.2011, 16:15

Добрый день, проблема заключается в следующем: сохранил в файл memo. Далее при открытии данной программы, она обращается к файлу, чтоб считать данные и снова записывает их в memo. Делаю memo1.Visible:=true; показывает все правильно..затем пробую считать отдельные линии:

Код:

Memo1.Lines.LoadFromFile('Save.cys');
Form1color:=Memo1.Lines[0];
Panel1color:=Memo1.Lines[1];
KoordColor:=Memo1.Lines[2];
QuadColor:=Memo1.Lines[3];
LinesColor:=Memo1.Lines[4];
DQuadColor:=Memo1.Lines[5]

Все вышеуказанные переменные типа string
Вместо того, чтоб им присвоить значение по линии, она присваивает им значения по символу. То есть если в файле было:
16777215
14215660
15524115
0
255
8388736
То значения переменных выдает как 1,6,7,7,7,2 то есть первые цифры
Пробовал делать Memo2.Lines:=Memo1.Lines;
Мемо второе имело вид
1
6
7
7
и т.д.
Надеюсь на вашу помощь)

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    Memo1: TMemo;
    Button2: TButton;
    Panel3: TPanel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel4: TPanel;
    Print1: TMenuItem;
    Print2: TMenuItem;
    Clear1: TMenuItem;
    About1: TMenuItem;
    Settings1: TMenuItem;
    Background1: TMenuItem;
    Color1: TMenuItem;
    Figure1: TMenuItem;
    Panel5: TMenuItem;
    Quadrangle1: TMenuItem;
    Koord1: TMenuItem;
    Parallelograms1: TMenuItem;
    Lines1: TMenuItem;
    DQuadrangle1: TMenuItem;
    Save1: TMenuItem;
    ColorDialog1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Figure1Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Quadrangle1Click(Sender: TObject);
    procedure Koord1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Form1color,Panel1color,QuadColor,KoordColor,DQuadColor,LinesColor: string;
  X0,Y0,XA,XB,XC,XD,YA,YB,YC,YD,i,k1,n,k2: integer;
  a: TColor;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Width:=Screen.Width; Form1.Height:=Screen.Height;
Form1.Left:=0;
Form1.Top:=0;
Form1.Panel1.Top:=0; Form1.Panel1.Left:=Form1.Width-Form1.Panel1.Width;
Form1.Panel1.Width:=105; Form1.Panel1.Height:=625;
//
if FileExists('Save.cys') then
Begin
Memo1.Lines.LoadFromFile('Save.cys');
Form1color:=Memo1.Lines[0];
Panel1color:=Memo1.Lines[1];
KoordColor:=Memo1.Lines[2];
QuadColor:=Memo1.Lines[3];
LinesColor:=Memo1.Lines[4];
DQuadColor:=Memo1.Lines[5];
end else
Begin
Form1color:=inttostr(RGB(255,255,255));
Panel1color:=inttostr(RGB(236,233,216));
KoordColor:=inttostr(RGB(19,225,236));
QuadColor:=inttostr(RGB(0,0,0));
LinesColor:=inttostr(RGB(255,0,0));
DQuadColor:=inttostr(RGB(128,0,128));

end;
//

Form1.Color:=strtoint(Form1color);
Panel1.Color:=strtoint(Panel1color);
//
Edit1.Top:=Form1.Panel1.Top+8;
Edit1.Left:=Form1.Panel1.Left+8;
Edit2.Top:=Form1.Panel1.Top+8;
Edit2.Left:=Form1.Panel1.Left+64;
Edit3.Top:=Form1.Panel1.Top+40;
Edit3.Left:=Form1.Panel1.Left+8;
Edit4.Top:=Form1.Panel1.Top+40;
Edit4.Left:=Form1.Panel1.Left+64;
Edit5.Top:=Form1.Panel1.Top+72;
Edit5.Left:=Form1.Panel1.Left+8;
Edit6.Top:=Form1.Panel1.Top+72;
Edit6.Left:=Form1.Panel1.Left+64;
Edit7.Top:=Form1.Panel1.Top+104;
Edit7.Left:=Form1.Panel1.Left+8;
Edit8.Top:=Form1.Panel1.Top+104;
Edit8.Left:=Form1.Panel1.Left+64;
Edit9.Top:=Form1.Panel1.Top+176;
Edit9.Left:=Form1.Panel1.Left+8;
Edit10.Top:=Form1.Panel1.Top+336;
Edit10.Left:=Form1.Panel1.Left+8;
//
Button1.Top:=Form1.Panel1.Top+136;
Button1.Left:=Form1.Panel1.Left+16;
Button2.Top:=Form1.Panel1.Top+208;
Button2.Left:=Form1.Panel1.Left+16;
Button3.Top:=Form1.Panel1.Top+256;
Button3.Left:=Form1.Panel1.Left+16;
Button4.Top:=Form1.Panel1.Top+288;
Button4.Left:=Form1.Panel1.Left+16;
Button5.Top:=Form1.Panel1.Top+368;
Button5.Left:=Form1.Panel1.Left+16;
//
Form1.Panel2.Width:=Form1.Panel1.Width;
Form1.Panel2.Left:=Form1.Panel1.Left;
Form1.Panel2.Top:=Form1.Panel1.Top+170;
Form1.Panel3.Width:=Form1.Panel1.Width;
Form1.Panel3.Left:=Form1.Panel1.Left;
Form1.Panel3.Top:=Form1.Panel1.Top+245;
Form1.Panel4.Width:=Form1.Panel1.Width;
Form1.Panel4.Left:=Form1.Panel1.Left;
Form1.Panel4.Top:=Form1.Panel1.Top+324;
//
Form1.Repaint;
X0:=(Form1.Width-Form1.Panel1.Width) div 2;
Y0:=Form1.Height div 2;
{Memo1.Visible:=false;}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Color:=strtoint(QuadColor);
XA:=StrToInt(Edit1.text)+X0;
XB:=StrToInt(Edit3.text)+X0;
XC:=StrToInt(Edit5.text)+X0;
XD:=StrToInt(Edit7.text)+X0;
YA:=Y0-StrToInt(Edit2.text);
YB:=Y0-StrToInt(Edit4.text);
YC:=Y0-StrToInt(Edit6.text);
YD:=Y0-StrToInt(Edit8.text);
Canvas.MoveTo(XA,YA);
Canvas.LineTo(XB,YB);
Canvas.MoveTo(XB,YB);
Canvas.LineTo(XC,YC);
Canvas.MoveTo(XC,YC);
Canvas.LineTo(XD,YD);
Canvas.MoveTo(XD,YD);
Canvas.LineTo(XA,YA);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Canvas.MoveTo(0,y0);
Canvas.LineTo(2*x0,y0);
Canvas.MoveTo(x0,0);
Canvas.LineTo(x0,2*y0);
Canvas.Pen.Color:=strtoint(KoordColor);
n:=StrToInt(Edit10.text);
k1:=y0 div n;
k2:=x0 div n;
for i:=1 to n do
Begin
Canvas.MoveTo(0,i*k1+y0);
Canvas.LineTo(2*x0,i*k1+y0);
Canvas.MoveTo(0,y0-i*k1);
Canvas.LineTo(2*x0,y0-i*k1);
end;
for i:=1 to n do
Begin

Canvas.MoveTo(i*k2+x0,0);
Canvas.LineTo(i*k2+x0,2*y0);
Canvas.MoveTo(x0-i*k2,0);
Canvas.LineTo(x0-i*k2,2*y0);
end;
end;

procedure TForm1.Figure1Click(Sender: TObject);
begin
if ColorDialog1.Execute then Form1.Color:=ColorDialog1.Color;

end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
if ColorDialog1.Execute then Form1.Panel1.Color:=ColorDialog1.Color;
end;

procedure TForm1.Quadrangle1Click(Sender: TObject);
begin
if colorDialog1.Execute then
Begin
Canvas.Pen.Color:=ColorDialog1.color;
QuadColor:=inttostr(Canvas.Pen.Color);
XA:=StrToInt(Edit1.text)+X0;
XB:=StrToInt(Edit3.text)+X0;
XC:=StrToInt(Edit5.text)+X0;
XD:=StrToInt(Edit7.text)+X0;
YA:=Y0-StrToInt(Edit2.text);
YB:=Y0-StrToInt(Edit4.text);
YC:=Y0-StrToInt(Edit6.text);
YD:=Y0-StrToInt(Edit8.text);
Canvas.MoveTo(XA,YA);
Canvas.LineTo(XB,YB);
Canvas.MoveTo(XB,YB);
Canvas.LineTo(XC,YC);
Canvas.MoveTo(XC,YC);
Canvas.LineTo(XD,YD);
Canvas.MoveTo(XD,YD);
Canvas.LineTo(XA,YA);
end;
end;

procedure TForm1.Koord1Click(Sender: TObject);
begin
if colordialog1.Execute then
Begin
Canvas.Pen.Color:=colordialog1.color;
KoordColor:=inttostr(Canvas.Pen.Color);
for i:=1 to n do
Begin
Canvas.MoveTo(0,i*k1+y0);
Canvas.LineTo(2*x0,i*k1+y0);
Canvas.MoveTo(0,y0-i*k1);
Canvas.LineTo(2*x0,y0-i*k1);
end;
for i:=1 to n do
Begin

Canvas.MoveTo(i*k2+x0,0);
Canvas.LineTo(i*k2+x0,2*y0);
Canvas.MoveTo(x0-i*k2,0);
Canvas.LineTo(x0-i*k2,2*y0);
end;
end;
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
Memo1.Lines.Add(inttostr(Form1.color));
Memo1.Lines.Add(inttostr(Panel1.color));
Memo1.Lines.Add(Koordcolor);
Memo1.Lines.Add(Quadcolor);
Memo1.Lines.Add(Linescolor);
Memo1.Lines.Add(DQuadcolor);
Memo1.Lines.SaveToFile('Save.cys');
end;

end.

Админ: Пользуемся тегами для оформления кода!

Pyro · #2 02.08.2011, 18:02

похоже на свойство wordwrap.

хотя оба способа не-кошерны, можно ещё все цвета хранить не в тексте а а в картинке - примерно так

PHP код:


		
			
image.picture.loadfromfile('...bmp');

form1.color = image.picture.bitmap.canvas.pixels[0, 0];

form2.color = image.picture.bitmap.canvas.pixels[1, 0];

angvelem · #3 02.08.2011, 21:17

Использовать INI файл или реестр религия не позволяет? Нужен обязательно свой "велосипед"?

DenNik · #4 03.08.2011, 12:36

Используй Memo.Lines.Strings[i] для доступа к отдельным строкам

Zakharyan · #5 03.08.2011, 15:35

Спасибо за подсказку)))Сам не знаю почему у Memo стояло Memo1.WordWrap как true. Поменял, работает)

NumLock · #6 03.08.2011, 16:08

Цитата:

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

Сам не знаю почему у Memo стояло Memo1.WordWrap как true.

по умолчанию у TMemo WordWrap == True

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты