We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
COURSE of the MONTH
11 days, 11 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Need Help Delphi 2010 CheckBox1 Stored value in memo
Posted on 2016-11-28
Hello Guys I'm new with Delphi which uses pascal language.
I'm trying to create simple application which loaded all values in sMemo.Text. All Strings were working fine except with Boolean values "CheckBox and radio Buttons"
here is the line I'm using
sMemo1.Lines.Add(sCheckBox
it gives me an error
[DCC Error] Unit1.pas(44): E2035 Not enough actual parameters.
here is my whole code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sCheckBox, sRadioButton, sGroupBox, sButton, sEdit, sMemo,
sLabel;
type
TForm1 = class(TForm)
sMemo1: TsMemo;
sEdit1: TsEdit;
sEdit2: TsEdit;
sEdit3: TsEdit;
sButton1: TsButton;
sButton2: TsButton;
sGroupBox1: TsGroupBox;
sRadioButton1: TsRadioButton;
sRadioButton2: TsRadioButton;
sCheckBox1: TsCheckBox;
sMemo2: TsMemo;
sLabel1: TsLabel;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.sButton1Click(Sende
begin
sMemo1.Clear;
sMemo1.Lines.Add(sEdit1.Te
sMemo1.Lines.Add(sEdit2.Te
sMemo1.Lines.Add(sEdit3.Te
sMemo1.Lines.Add(sCheckBox
end;
end.
Anyone here knows that. My main purpose with this app is to load all configuration into memo instead of an ini file wich is easy to read an modified with someone. I want to load all config i memo and encrypt content in memo and save it as a file format
I'm trying to create simple application which loaded all values in sMemo.Text. All Strings were working fine except with Boolean values "CheckBox and radio Buttons"
here is the line I'm using
sMemo1.Lines.Add(sCheckBox
it gives me an error
[DCC Error] Unit1.pas(44): E2035 Not enough actual parameters.
here is my whole code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sCheckBox, sRadioButton, sGroupBox, sButton, sEdit, sMemo,
sLabel;
type
TForm1 = class(TForm)
sMemo1: TsMemo;
sEdit1: TsEdit;
sEdit2: TsEdit;
sEdit3: TsEdit;
sButton1: TsButton;
sButton2: TsButton;
sGroupBox1: TsGroupBox;
sRadioButton1: TsRadioButton;
sRadioButton2: TsRadioButton;
sCheckBox1: TsCheckBox;
sMemo2: TsMemo;
sLabel1: TsLabel;
procedure sButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.sButton1Click(Sende
begin
sMemo1.Clear;
sMemo1.Lines.Add(sEdit1.Te
sMemo1.Lines.Add(sEdit2.Te
sMemo1.Lines.Add(sEdit3.Te
sMemo1.Lines.Add(sCheckBox
end;
end.
Anyone here knows that. My main purpose with this app is to load all configuration into memo instead of an ini file wich is easy to read an modified with someone. I want to load all config i memo and encrypt content in memo and save it as a file format
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
8
5
13 Comments
Active 3 days ago
what components are those ?
never seen an sRadioButton, sGroupBox, etc in the uses clause
never seen an sRadioButton, sGroupBox, etc in the uses clause
Active 3 days ago
for the checkbox and radiobutton you'll have to convert a boolean to a string
why exactly do you want to use "a visual component" (= memo) for something you don't want users to see ?
it is a common misconcept
use a TStrings instead
why exactly do you want to use "a visual component" (= memo) for something you don't want users to see ?
it is a common misconcept
use a TStrings instead
procedure TForm1.sButton1Click(Sender: TObject);
function BoolToStr(b: Boolean): string;
begin
Result := '0';
if b then Result := '1';
end;
var List: TStrings;
begin
List := TStringList.Create;
try
List.Add(sEdit1.Text);
List.Add(sEdit2.Text);
List.Add(sEdit3.Text);
List.Add(BoolToStr(sCheckBox1.Checked));
List.SaveToFile('yourtextfile.txt');
// to see the actual text in a memo:
// smemo1.Lines.Assign(List);
finally
List.Free;
end;
end.
Hello sorry to ask you again. how can I retrieve in back using button2
here is My code
function StrToBool(b: Boolean): string;
begin
Result := '0';
if b then Result := '1';
end;
var List: TStrings;
begin
sEdit1.Text := sMemo1.Lines[0];
sEdit1.Text := sMemo1.Lines[1];
sEdit1.Text := sMemo1.Lines[2];
sCheckBox1.Checked := sMemo1.Lines[3];
end;
here is My code
function StrToBool(b: Boolean): string;
begin
Result := '0';
if b then Result := '1';
end;
var List: TStrings;
begin
sEdit1.Text := sMemo1.Lines[0];
sEdit1.Text := sMemo1.Lines[1];
sEdit1.Text := sMemo1.Lines[2];
sCheckBox1.Checked := sMemo1.Lines[3];
end;
Active 3 days ago
i thought you were going to come back ...
there will be a problem when you add components.
Hit Ctrl-Shift-C for code completion after replacing the Button1Click procedure with above code
there will be a problem when you add components.
procedure TForm1.sButton1Click(Sender: TObject);
begin
SaveSettings;
end;
procedure TForm1.SaveSettings;
function BoolToStr(b: Boolean): string;
begin
Result := '0';
if b then Result := '1';
end;
var List: TStrings;
begin
List := TStringList.Create;
try
List.Values['Edit1'] := sEdit1.Text;
List.Values['Edit2'] := sEdit2.Text;
List.Values['Edit3'] := sEdit3.Text;
List.Values['Check1'] := BoolToStr(sCheckBox1.Checked);
List.SaveToFile('yourtextfile.txt');
// to see the actual text in a memo:
// smemo1.Lines.Assign(List);
finally
List.Free;
end;
end.
procedure TForm1.LoadSettings;
function StrToBool(s: string): boolean;
begin
Result := False;
if s = '1' then Result := True;
end;
var List: TStrings;
begin
List := TStringList.Create;
try
List.LoadFromFile('yourtextfile.txt');
sEdit1.Text := List.Values['Edit1'];
sEdit2.Text := List.Values['Edit2'];
sEdit3.Text := List.Values['Edit3'];
sCheckBox1.Checked := StrToBool(List.Values['Check1']);
finally
List.Free;
end;
end;
Hit Ctrl-Shift-C for code completion after replacing the Button1Click procedure with above code
I already Solve it using this code..
procedure TForm1.sButton2Click(Sende
var
value : String ;
begin
value := sMemo1.Lines[0];
sCheckBox1.Checked := StrToBool(value);
end;
end.
procedure TForm1.sButton2Click(Sende
var
value : String ;
begin
value := sMemo1.Lines[0];
sCheckBox1.Checked := StrToBool(value);
end;
end.
Featured Post
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Creating an auto free TStringList
The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list.
In such cases, you have to…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB.
How Percona can help
Percona can help you determine if Percona Server for MongoDB is the right solution for …
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment.
To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Suggested Courses
Course of the Month11 days, 11 hours left to enroll
752 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.