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 dobegin{在这里完成你的业务功能}end;

【使用downto模式，表示递减，循环变量每次减一，直到循环变量小于它的最终值】
<pre name="code" class="delphi">for i:= 10 downto 0 dobegin{在这里完成你的业务功能}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   【被赋值的数据集】beginif 【用Locate函数定位到赋值数据集的主键列 和被赋值数据集的主键列名】FSalOrderLines.Locate('SORDERLINEID',FSalHistoryOrderLines.FieldByName('SORDERLINEID').AsString,[]) thenbeginfor I := 0 to FSalOrderLines.FieldCount - 1 dobeginif FSalHistoryOrderLines.Fields[i].AsString <> FSalOrderLines.Fields[i].AsString thenbeginnoSname:=true;break;end;end;endelsenoSname:=true;if noSname thenbreak;FSalHistoryOrderLines.Next;end;

两个数据集直接的赋值

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