procedure TfrmSorting.btnSortClick(Sender: TObject);
var
K,L,I,iNumElements : integer;
sKeep : string;
begin
iNumElements := length(arrNames);
for K := 1 to iNumElements - 1 do
begin
for L
我写过一个单元来保存多个字符串列表。每个TStrings项目都存储为包含文本和表示对象的整数值的记录。整个写入二进制文件。以下是写入数据的例程。 function AddToStream(Stream: TStream; Const pList: TStringList):Boolean;
Var idy: Integer;
TmpItem: tItemRec;
begin
结果分裂以我的应用程序,用户可以在具有多行诸如以下内容的文本框中输入的字符串: This is line 1
This is line 2
该结果被存储在一个表格如下“这是第1行这是第2行”。 我想要的是能够将它从表格中拉出后用换行符拆分字符串。类似这样的: "This is line 1 This is line 2".split('/n')
为了让我给出原始结果字符串跨越单独的行。然
uses dmInfo;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
with dmInfo do
begin
tblInfo.Open;
end;
由于某些不清楚的原因,tblInfo被视为未声明的标识符。请帮忙。 感谢