Multiline text box

I have actually no clue what this component is for, I was unable to write any text in it during project edition.

What I would like is a component which allows me to fill in free text like for a changelog or even this forum when you reply. I could edit it but not the users.

i had already started an example when Dmitry replied, but completed it as i didn't want it to go to waste.
so please have a look at this example as well as the one posted above by the developer.

the compiled version and sqlite.dll file has been removed to reduce the archive size.

This component not supported formating the text, but I planned add advanced version of Memo with formating.

tcoton
Example:

// save text to DB
procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
    s := ReplaceStr(Form1.Memo1.Text, '''', ''''''); // for quotes
    SQLExecute('REPLACE INTO base (id, info) VALUES (1, '''+s+''')');
end;

// load text from DB
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.Memo1.Text := SQLExecute('SELECT info FROM base WHERE id=1');
end;

Also you can download the example:

Thank you, fixed, please download the example again.

Everything works perfectly, thanks a lot Dmitry for your fast replies.

I just changed a detail, I use the OnShow event so the memo is automatically displayed and I tick the Read Only property before compiling so the users cannot edit my memo

This makes my life way easier to log / display the dev history.

tcoton
Can you send me project for test?
support@drive-software.com

Any news for a true multiline textbox component?

I need to support multiline entries in my project and I struggle to get it working properly. When designing I can draw a very nice big textbox which reduces automatically to 1 line when starting the application.

I tried to use memo instead but it retains latest entry every time I display the edition form without closing the application on same record. Is there a way to at least clear the memo component when closing the form?

The component is not cleared until I restart the application, you could easily try it yourself

To clear it, I must exit my application and restart it? I am using 2.03 alpha.

Ok I see, we do not use it the same way

I actually use the memo component to be able to write a multiline comment with clear view on what is being written, then I click on "Save Maintenance", it records all entries in a table "Maintenances" using scripts shown below. When opening back the form for the same switch (show record) last entry remains.

// Save maintenance into separate table
procedure ADD_switch_Button1_OnClick (Sender: string; var Cancel: boolean);
begin

   SQLExecute ('INSERT INTO maintenances (Hostname,Description,DateMaint,IMAC,MAC_ADDRESS) VALUES ('+ ADD_switch.hostname_add.sqlValue+','+ADD_switch.Descript1.sqlValue+','+ADD_switch.DateMaint.sqlDate+', '+ADD_switch.IMAC.sqlValue+','+ADD_switch.mac_add.sqlValue+' )');

    ADD_switch.Close;

end;


// Display maintenances related to current Switch

procedure ADD_switch_OnShow (Sender: string; Action: string);
var
    sSW_ID: string;
begin
    sSW_ID := ADD_switch.mac_add.sqlValue; // get current MAC Address

    ADD_switch.MaintHistory.dbSQL:='SELECT Hostname, MAC_ADDRESS, Description, strftime("%d.%m.%Y" ,Datemaint), IMAC FROM Maintenances where MAC ='+sSW_ID+;
    ADD_switch.MaintHistory.dbListFieldsNames :='Hostname,Details Maint,Date Maint, IMAC';
    ADD_switch.MaintHistory.dbSQLExecute;
end;