delphi学习总结

爽的翻

于 2018-12-07 14:15:44 发布

阅读量804

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： delphi学习总结

本文链接：https://blog.youkuaiyun.com/qq_38081404/article/details/84873911

delphi 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍Delphi中的文件路径操作函数，如ExtractFileName等，以及如何使用TTStringList进行字符串处理。同时，深入探讨Delphi的循环结构，包括for和while循环的使用场景，并介绍如何在Delphi中比较和赋值两个数据集。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

文章目录

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;