[guver]

можно ли так чтоб на форме было несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл какнить красивенько ?? ) или посоветуйте ченить другое

[march]

Сообщение от guver, спрашивающего

можно ли так чтоб на форме было несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл какнить красивенько ?

Можно.

Сообщение от guver, спращивающего

посоветуйте ченить другое

Сообщение от guver, отвечающего в своем же вопросе

на форме несколько memo и по нажатию кнопки они сохраняли информацию из себя в один файл красивенько ?

Может по-русски что хочем и для каких целей? Телепатов здесь не много, а те что и есть работают за деньги и дорого.

[dr. F.I.N.]

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TMemo then
  s.AddStrings(TMemo(Form1.Controls[i]).Lines);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

Должно работать (писал на коленке).

[dr. F.I.N.]

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TEdit then
  s.Add(TEdit(Form1.Controls[i]).Text);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

А уже все есть. Ты только посмотри внимательно ))))
А вот с мемо по твоему вопросу заморачиваться не охота. Стандартных решений вроде нет, а остальное - геморрой...

[guver]

Еще такой вопрос ) хочу поменять иконку у приложения нифига не идет и пишет вот такуб тему

http://clip2net.com/page/m0/5766125

[guver]

И еще может кому скучно или он быстро печататет можео ( я вижу что там есть коменты но может можно поподробней ) прокоментировать прогу

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DrawGrid1: TDrawGrid;
    ImageList1: TImageList;
    btView_source: TButton;
    procedure FormCreate(Sender: TObject);
    procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure btView_sourceClick(Sender: TObject);
 
  private
  pict:array[1..5,1..5]of byte;
  Switch:TPoint;
  SwitchB:boolean;
    { Private declarations }
  public
    Source_BMP:TPicture;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses source_bmp;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  TempB,BMP:TBitmap;
  x1,y1,x2,y2,i,j:byte;
  DestRect,SourceRect:TRect;
begin
Randomize;
for i:=1 to 5 do //установка правильного порядка частей рисунка
  for j:=1 to 5 do
    pict[i,j]:=(i-1)*5+j;
BMP:=TBitmap.Create;
BMP.Width:=400; BMP.Height:=400;
TempB:=TBitmap.Create;
TempB.Width:=80;TempB.Height:=80;
Bmp.LoadFromFile('BMP.bmp');
//
Source_BMP:=TPicture.Create;
//Source_BMP.Width:=400; Source_BMP.Height:=400;
Source_BMP.Bitmap:=bmp;
//
for i:=1 to 5 do
  for j:=1 to 5 do
    begin  //а это — копирование частей рисунка
    SourceRect:=Rect((j-1)*80,(i-1)*80,j*80,i*80);
    DestRect:=Rect(0,0,80,80);
    TempB.Canvas.CopyRect(DestRect,BMP.Canvas, SourceRect);
    ImageList1.Add(TempB,nil);
    end;
BMP.Destroy; TempB.Destroy;
for i:=1 to 21 do
begin    //в этом цикле фрагменты картинки меняются местами
  repeat
  x1:=random(5)+1;y1:=random(5)+1;
  x2:=random(5)+1;y2:=random(5)+1;
  until (x1<>x2)and(y2<>y1);
j:=pict[x2,y2];
pict[x2,y2]:=pict[x1,y1];
pict[x1,y1]:=j;
end;
end;

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
Tag := Pict[ARow+1,ACol+1]-1;
ImageList1.Draw(DrawGrid1.Canvas,Rect.Left,Rect.Top,Tag);

end;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i,j,t:byte;
  win:boolean;
begin
if SwitchB then             //надо   менять   фрагменты местами
  begin
  t:=pict[y div 81+1,x div 81+1];
  pict[y div 81+1,x div 81+1]:=pict[switch.y,Switch.x];
  pict[switch.y,Switch.x]:=t;
  SwitchB:=false;
  end
else           //первое нажатие в паре «выбор-обмен»
  begin
  Switch.x:=x div 81 +1;
  Switch.y:=y div 81 +1;
  SwitchB:=true;
  end;
win:=true;
for i:=1 to 5 do
for j:=1 to 5 do
win:=win and (pict[i,j]=(i-1)*5+j);
if win then // если все собрано.,
  application.MessageBox('Молодец ты все собрал!','Победа!', MB_ICONINFORMATION);
end;

procedure TForm1.btView_sourceClick(Sender: TObject);
begin
formSource_image.Image1.Canvas.Draw(0,0,Source_BMP.Graphic);
formSource_image.Show
end;

end.

[guver]

Сообщение от dr. F.I.N.

Код:

var
  i: Integer;
  s : TStringList;
begin
  if Form1.ControlCount = 0 then Exit;
  s := TStringList.Create;
  for i := 0 to Form1.ControlCount - 1 do
  if Form1.Controls[i] is TEdit then
  s.Add(TEdit(Form1.Controls[i]).Text);
  s.SaveToFile('<Your filename>');
  s.Free;
end;

А уже все есть. Ты только посмотри внимательно ))))
А вот с мемо по твоему вопросу заморачиваться не охота. Стандартных решений вроде нет, а остальное - геморрой...

Ошибку не выдает , файл создает но в нем опять ниче не пишет (( wtf

http://clip2net.com/page/m0/5766282

[dr. F.I.N.]

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

Ошибку не выдает , файл создает но в нем опять ниче не пишет (( wtf

Попробуй встравить перед s.SaveToFile('<Your filename>');
вот такую строчку ShowMessage(s.Text); и посмотри что вылетит.

[guver]

С сохранением разобрался А вот с иконкой которая никак не хочет ставится на приложение и коментами к проге можно еще помочь )

[Bars1992]

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

какнить красивенько ?? )

Это типо со стразиками или как?

[guver]

у меня к приверу идут 10 вопросов в столтик , ответ на каждый цирфа , как из 10 memo сохранить в один текстовик эти ответы тоже в столбик чтоб при открытии его было сразу все понятно а не додряд типа:
12345678910

а надо вот так :
1
2
3
4
5
6..

[dr. F.I.N.]

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

у меня к приверу идут 10 вопросов в столтик , ответ на каждый цирфа , как из 10 memo сохранить в один текстовик эти ответы тоже в столбик чтоб при открытии его было сразу все понятно а не додряд типа:
12345678910

а надо вот так :
1
2
3
4
5
6..

Мой вариант не работает или как?

[guver]

я чайник полный ) скопировал твой код ) вставил ) пару мемо и ))) и какбы мне надо очень подробнооооо я туплю какие элементы на форму где и че и как

[dr. F.I.N.]

А что тут непонятного? ставишь сколько надо мемо. Мой код ставишь в обработчик события, например, кнопки. Указываешь имя файла вместо <Your filename>. И все. Код переберет все мемо на форме и запишет все их содержимое в один файл.
Еще вопросы?