主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

如何使备忘录无限制和/减少? 找到类似的分支


лут   (2002-04-13 15:23) [0]

谁对如何为备忘录进行无限制的andu / redu有任何想法。

制作2:一个在列表框中保存另一个节奏文件,但我不喜欢任何东西:(

1 - 当文本很大(没有测量精度)导致失败时,显然可以保存一行中的字符串列表 - 它可能有一个限制(但它的限制是什么?)
2-吃螺丝上的空间。


1)
VAR
undo:boolean;

履行

{$ R * .DFM}

过程TForm1.button_redoClick(Sender:TObject);
VAR
我:整数;
开始
i:= ListBoxRedo.Items.Count;

如果listboxRedo.Items.Text <>“”那么
开始
memo1.Text:= ListBoxRedo.Items [i-1];
ListBoxRedo.Items.Delete(i-1);
button_redo.Enabled:= true;
结束
其他
开始
button_redo.Enabled:= false;
结束;
结束;

procedure TForm1.Memo1Change(Sender:TObject);
开始
如果撤消那么
undo:= false
其他
ListBoxUndo.Items.Insert(0,memo1.text);

如果memo1.Text <>“”那么
button_undo.Enabled:= true;
结束;

程序TForm1.button_undoClick(发件人:TObject);
开始
undo:= true;
ListBoxUndo.Items.Delete(0);

如果memo1.Text <>“”那么
ListBoxRedo.Items.Add(Memo1.Text);

如果listboxUndo.Items.Text <>“”那么
开始
memo1.Text:= ListBoxUndo.Items [0];
button_undo.Enabled:= true;
结束
其他
开始
memo1.Text:=“”;
button_undo.Enabled:= false;
结束;

button_redo.Enabled:= true;


2)。
procedure TForm1.Memo2Change(Sender:TObject);
开始
inc(i);
memo2.Lines.SaveToFile(“temp”+ inttostr(i)+“。txt”);

结束;



SPeller   (2002-04-13 16:27) [1]

您可以在3参数数组中记忆 - 文本,选择的开头,选择的结尾,甚至一个文本。 首先填充数组,然后添加新数据并删除旧数据。



Fantasist   (2002-04-13 21:29) [2]

记住键击和删除字母的顺序。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

楼上





内存:0.55 MB
时间:0.029 c
3-80812
fozy
2002-04-05 11:59
2002.04.25
Paradox langdriver中的KARAUL MSSQL找不到plizz


1-80966
UnDISCOvery
2002-04-10 16:42
2002.04.25
如何在表格上绘图


3-80753
nic406
2002-04-04 06:35
2002.04.25
使用VIEW和JOIN(SQL2000)进行示例 - 帮助新手!


3-80836
Alexsys
2002-04-05 23:38
2002.04.25
GRID +同时有几列......


4-81104
罗穆卢斯
2002-02-18 12:29
2002.04.25
如何重新连接到网络驱动器?





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский