ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽgｿｽ@ 2005/08/30(ｿｽｿｽ) 18:59:48

ｿｽｿｽｿｽｿｽﾎゑｿｽﾍ、ｿｽﾂゑｿｽｿｽﾅ具ｿｽDelphiｿｽｿｽｿｽｿｽｿｽｿｽ閧ｾｿｽｿｽｿｽｿｽｿｽﾒでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾝ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽ
ｿｽｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽQｿｽﾂ、ｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽPｿｽﾂゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽPｿｽﾂのテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ/ｿｽﾇみ搾ｿｽｿｽﾝゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽgｿｽ@ 2005/08/30(ｿｽｿｽ) 21:25:25

ｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽPｿｽﾂのテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ/ｿｽﾇみ搾ｿｽｿｽｿｽ
ｿｽeｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽAｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽ
ｿｽeｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ保托ｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽB

anone 2005/08/30(ｿｽｿｽ) 21:37:34

ｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽﾄなんだゑｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽ TMemo ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ

TStringList ｿｽｿｽgｿｽｿｽｿｽｿｽ

ListBox1 ｿｽﾌ行ｿｽｿｽｿｽｿｽ StrToInt() ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ
ListBox1 ｿｽｿｽ Items
...

ListBox2 ｿｽﾌ行ｿｽｿｽｿｽｿｽ StrToInt() ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ
ListBox2 ｿｽｿｽ Items
...

TMemo ｿｽﾌ行ｿｽｿｽｿｽｿｽ StrToInt() ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ
TMemo.Lines 
...

ｿｽﾆゑｿｽｿｽｿｽﾆ茨ｿｽﾂのテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ読み擾ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ

anone 2005/08/30(ｿｽｿｽ) 21:38:49

> StrToInt() ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ

ｿｽﾔ違いｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽuIntToStr() ｿｽeｿｽLｿｽXｿｽgｿｽﾅ」ｿｽﾅゑｿｽ

ｿｽgｿｽ@ 2005/08/30(ｿｽｿｽ) 21:52:02

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽTEditｿｽﾌ趣ｿｽｿｽﾅゑｿｽｿｽB
ｿｽ痰ｦｿｽｿｽ
[ ListBox1 ]
AAAAAAAAA
BBBBBBBBB
CCCCCCCCC
DDDDDDDDD

[ListBox2]
EEEEEEEEE
FFFFFFFFF
GGGGGGGGG
HHHHHHHHH

[TEdit.Text]
IIIIIIIIIIIII

ｿｽｿｽｿｽﾌようｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽTStringListｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽIｿｽｿｽｿｽﾎ保托ｿｽｿｽB
ｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇ搾ｿｽｿｽﾞと、ｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽﾇ搾ｿｽｿｽﾜゑｿｽAｿｽeｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽdｿｽgｿｽﾝにゑｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽAｿｽlｿｽｿｽｿｽl 2005/08/30(ｿｽｿｽ) 22:27:37

ｿｽeｿｽLｿｽXｿｽgｿｽﾅ茨ｿｽｿｽｿｽｿｽﾆなゑｿｽﾆ各ｿｽsｿｽﾌ難ｿｽｿｽﾉイｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄは？
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽB

procedure TForm1.SaveToOneText(path:string);
var
  i:integer;
  strList:TStringList;
begin
  strList:=TStringList.Create;
  for i:=0 to ListBox1.Items.Count-1 do
    strList.Add('1:'+ListBox1.Items.Strings[i]);
  for i:=0 to ListBox1.Items.Count-1 do
    strList.Add('2:'+ListBox2.Items.Strings[i]);

    strList.Add('3:'+Edit1.Text);
  strList.SaveToFile(path);
  strList.Free;
end;

procedure TForm1.LoadFromOneText(path:string);
var
  i:integer;
  strList:TStringList;
  str:string;
begin
  ListBox1.Clear;
  ListBox2.Clear;
  strList:=TStringList.Create;
  strList.LoadFromFile(path);
  for i:=0 to strList.Count-1 do
  begin
    str:= strList.Strings[i];
    if str[1]='1' then
      ListBox1.Items.Add(Copy(str,3,Length(str)-2))
    else if str[1]='2' then
      ListBox2.Items.Add(Copy(str,3,Length(str)-2))
    else if str[1]='3' then
      Edit1.Text:= Copy(str,3,Length(str)-2);
  end;
  strList.Free;
end;

ｿｽgｿｽ@ 2005/08/30(ｿｽｿｽ) 22:47:25

ｿｽﾈゑｿｽﾙど・ｿｽEｿｽEｿｽCｿｽｿｽｿｽfｿｽbｿｽNｿｽXｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB

ｿｽfｿｽVｿｽｿｽｿｽoｿｽｿｽ 2005/08/31(ｿｽｿｽ) 10:24:38

ｿｽeｿｽﾊ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAINIｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽH

anone 2005/08/31(ｿｽｿｽ) 11:01:46

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ

procedure TForm1.Button1Click(Sender: TObject);
var
  i, num1, num2: integer;
  sl: TStringList;
begin
  num1 := ListBox1.Items.Count;
  num2 := ListBox2.Items.Count;
  sl := TStringList.Create;
  try
    sl.Add(IntToStr(num1));
    for i := 0 to num1-1 do sl.Add(ListBox1.Items[i]);
    sl.Add(IntToStr(num2));
    for i := 0 to num2-1 do sl.Add(ListBox2.Items[i]);
    sl.Add(Edit1.Text);
    sl.SaveToFile('c:¥test.txt');
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, num1, num2: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('c:¥test.txt');
    num1 := StrToInt(sl[0]);
    num2 := StrToInt(sl[num1+1]);
    for i := 1 to num1 do ListBox1.Items.Add(sl[i]);
    for i := num1+2 to num1+1+num2 do ListBox2.Items.Add(sl[i]);
    Edit1.Text := sl[sl.Count-1];
  finally
    sl.Free;
  end;
end;

Basser 2005/09/01(ｿｽｿｽ) 13:18:55

ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽTStringListｿｽAｿｽﾇ搾ｿｽｿｽﾉゑｿｽTMemIniFileｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

  implementation

  uses IniFiles;

  procedure TForm1.Button1Click(Sender: TObject);
  var
    F: TStringList;
  begin
    F:= TStringList.Create;
    try
      F.Add(Format('[%s]', [ComboBox1.Name]));
      F.AddStrings(ComboBox1.Items);
      F.Add(Format('[%s]', [Memo1.Name]));
      F.AddStrings(Memo1.Lines);
      F.SaveToFile('c:¥test.txt');
    finally
      F.Free;
    end;
  end;

  procedure TForm1.Button2Click(Sender: TObject);
  var
    F: TMemIniFile;
  begin
    F:= TMemIniFile.Create('c:¥test.txt');
    try
      F.ReadSectionValues(ComboBox1.Name, ComboBox1.Items);
      F.ReadSectionValues(Memo1.Name, Memo1.Lines);
    finally
      F.Free;
    end;
  end;

ｿｽgｿｽ@ 2005/09/02(ｿｽｿｽ) 19:13:44

ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽﾄ申ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ答ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽlｿｽAｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽlｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.