主页 / 问题 / 1586028
Accepted
I_CaR
Asked:2024-07-03 22:10:11 +0000 UTC2024-07-03 22:10:11 +0000 UTC

Delphi如何将Memo中的换行传递给Label？

  • 772

主窗体显示 ini 文件中的文本。它包含第二个表单的备忘录中的设置和文本。原文中包含连字符：Контора Рога и Копыта'+#13+'работает с 12:00 до 15:00 часов'+#13+'Личные приёмы с 13:00 до 14:00'
问题是，如何将其转移到Label上？
ini 文件是逐行保存的。所有内容也都被逐行接受到变量中。但标签上只显示第一行。

添加。在静态中，当文本标签带有'+#13'.但问题是我决定附加备忘录来编辑文本。文本保存在ini 中。
那些。启动时，FormCreate，标签包含从ini读取的变量。 ini 本身有连字符。但无论是在 Memo 中还是在 Label 中，它们都不能再从 ini 中计数。
我应该怎么办？

iniF.WriteString('main_text', 'text', text1);变量 tex1 中的条目 - 字符串

输入时输入：

在此输入图像描述

从ini文件查看：

在此输入图像描述

结果：

在此输入图像描述

在此输入图像描述

delphi

3 个回答

  1. Best Answer

    标签可以显示多行文本：

    label1.Caption := 'Контора Рога и Копыта'+#13+'работает с 12:00 до 15:00 часов'+#13+'Личные приёмы с 13:00 до 14:00';

    在此输入图像描述

    但重点不在于标签，而在于使用 ini 文件。

    ini 文件不适合存储多行参数。读取时，ReadString它使用 Windows 函数GetPrivateProfileString` 查找类似的字符串

    key=value

    从中提取value，并对后续行不执行任何操作。

    写入多行参数时，可以用特殊字符或序列替换换行符，读取时，进行反向替换（StringReplace）

    可能值得考虑其他存储和传输方式 - 例如， JSON5 有它{multiline:（您还必须在标准 JSON 中执行此操作line1\\nline2）

    • 3

  2. 如果使用标准的 Delphi 方法，那么最好这样做。

    implementation

{$R *.dfm}

    uses System.IniFiles;

    procedure TForm1.LoadBtnClick(Sender: TObject);
    begin
        if not OpenDialog1.Execute(Handle) then Exit;
        memo1.Lines.Clear;
        var inif := TIniFile.Create(OpenDialog1.FileName);
        try
            var Count := inif.ReadInteger('Memo1_Lines', 'Count', 0);
            for var I := 0 to Count do begin
                memo1.Lines.Add(inif.ReadString('Memo1_Lines', IntToHex(I, 4), ''));
            end;
        finally
            FreeAndNil(inif);
        end;

    end;

    procedure TForm1.SaveBtnClick(Sender: TObject);
    begin
        if not SaveDialog1.Execute(Handle) then Exit;
        var inif := TIniFile.Create(SaveDialog1.FileName);
        try
            var lines := Pred(Memo1.Lines.Count);
            inif.WriteInteger('Memo1_Lines', 'Count', lines);
            for var I := 0 to lines do begin
                inif.WriteString('Memo1_Lines', IntToHex(I, 4), Memo1.Lines[I]);
            end;
        finally
            FreeAndNil(inif);
        end;
    end;

end.

    输出将是这样的文件：

    [Memo1_Lines]
Count=4
0000=Memo1
0001=Is the
0002=perfect
0003=Container for Lines
0004==)

    如果它们是非标准的，那么您只需阅读文件直到遇到所需的部分，然后阅读下一部分。

    • 1

  3. 该解决方案是由 #MBo 建议的（并阅读旧的 delphibasics-ru）。

    //читаем из ini 
text1:=F.ReadString('main_text', 'text', 'сюда получаем текст из ini, содержащий это \\, это и будет наш символ переноса строки');

//далее делаем реплейсмент:
text2:= StringReplace(text1, '\\', #13, [rfReplaceAll, rfIgnoreCase]);
Label1.Caption := text2;
    • 0

相关问题