delphi学习总结

文章目录

• ExtractFileName、ExtractFileExt、ExtractFileDir、ExtractFilePath
• TTStringList截取字符串
• Delphi中的循环结构
• 比较两个数据集
• 两个数据集直接的赋值

ExtractFileName、ExtractFileExt、ExtractFileDir、ExtractFilePath

ExtractFileName单独取出文件的名字，不含路径。
ExtractFileExt单独取出文件的后缀名。
ExtractFileDir 从文件名中获取目录名 如C:/Borland/Delphi/Test.exe 取C:/Borland/Delphi
ExtractFilePath 从文件名中获取路径名 如C:/Borland/Delphi/Test.exe 取C:/Borland/Delphi/

TTStringList截取字符串

Delphi中的循环结构

for

【使用to模式，表示递增，循环变量每次加一，直到循环变量大于它的最终值】
<pre name="code" class="delphi">for i:= 0 to 10 do
begin
{在这里完成你的业务功能}
end;

【使用downto模式，表示递减，循环变量每次减一，直到循环变量小于它的最终值】
<pre name="code" class="delphi">for i:= 10 downto 0 do
begin
{在这里完成你的业务功能}
end;

适用范围：
循环次数明确的循环。
先判断后执行的循环。

While

Repeat

【类似于for循环中的循环变量，当然我们也可以自己确定循环条件，使用一个布尔类型的条件即可】
<pre name="code" class="delphi">repeat
{在这里完成你的业务功能}
i := i + 1;
until i > 10;

适用范围：
循环次数明确或者不明确的循环。
先执行后判断的循环，repeat循环至少会执行一次。

比较两个数据集

FSalHistoryOrderLines.First;
【Eof判断文件指针是否移动到了文件未尾】
while not FSalHistoryOrderLines.eof do   【被赋值的数据集】
begin
if
【用Locate函数定位到赋值数据集的主键列 和被赋值数据集的主键列名】
FSalOrderLines.Locate('SORDERLINEID',FSalHistoryOrderLines.FieldByName('SORDERLINEID').AsString,[]) then
begin
for I := 0 to FSalOrderLines.FieldCount - 1 do
begin
if FSalHistoryOrderLines.Fields[i].AsString <> FSalOrderLines.Fields[i].AsString then
begin
noSname:=true;
break;
end;
end;
end
else
noSname:=true;
if noSname then
break;
FSalHistoryOrderLines.Next;
end;

两个数据集直接的赋值

【必须初始化被赋值数据集 TClientDataSet.Create(nil)】
FSalHistoryOrderLines := TClientDataSet.Create(nil);
FSalHistoryOrderLines.Data:=FSalOrderLines.Data;

• 点赞
• 收藏
• 分享
• 文章举报