From Clomosy Docs

No edit summary
No edit summary
 
(7 intermediate revisions by 2 users not shown)
Line 1: Line 1:
clPathCombine is a function that is part of the Clomosy library. This function performs the operation of combining two file paths or directory paths. In other words, when two paths are provided, this function combines them and returns the combined path as a result.
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
function clPathCombine(var FileNameString: String; CombinePathString:String);
</div>
 
<span style="color:blue">''FileNameString''</span> : Searched file name.<br>
<span style="color:blue">''CombinePathString''</span> : The file path to merge.<br>
 
clPathCombine is a function that is part of the Clomosy library. This function returns a string data by concatenating the file path and file name.


The general usage is as follows:
The general usage is as follows:


clPathCombine(FileNameString:WideString; CombinePathString:String);
<div class="alert alert-secondary" role="alert" data-bs-theme="light">
 
CombinedPath = clPathCombine('File.txt','C:\Document');
<span style="color:blue">''FileNameString''</span> : Searched file name.
// Now CombinedPath will be 'C:\Document\File.txt'.
</div>


<span style="color:blue">''CombinePathString''</span> : The file path to merge.
<b>Example</b><br>


'''For instance:'''
If the file does not exist in the project directory, it saves the file. If the file exists, it adds a line to it.
CombinedPath := clPathCombine('File.txt','C:\Document');
When the application runs for the first time, it will not find the file, so it will add it to the file path and display a message.
  // Now CombinedPath will be 'C:\Document\File.txt'.
When run for the second time, a line is added to the existing file.


'''Example:'''
<pre>
var
  strList:TclStringList;
  fileStr:String;
  i : Integer;
{
  strList = Clomosy.StringListNew;
  fileStr = clPathCombine('File.Txt',Clomosy.AppFilesPath);


'''var'''
  If (clFileExists(fileStr,Clomosy.AppFilesPath))
  strList:TclStringList;
  {
  MyFileStr:String;
    strList.Add('New Line 1');
'''Begin'''
    strList.SaveToFile(fileStr,0);
  strList := Clomosy.StringListNew;
    ShowMessage('A line has been added to the existing file. To check, check your file via the file path. File path:'+#13#10+ fileStr);
  MyFileStr := ''clPathCombine''('MyFile.Txt',Clomosy.AppFilesPath);
   } else
   //ShowMessage(MyFileStr);
  {
    strList.SaveToFile(fileStr,0);
  If clFileExists(MyFileStr,'C:\Clomosy') Then
    ShowMessage('The file has been added to the directory. Directory path: '+#13#10+ fileStr)
   strList.LoadFromFile(MyFileStr,0);
   }
  strList.Add('New Line');
  if (strList.Count <= 0)
  strList.SaveToFile(MyFileStr,0);
    ShowMessage('Empty!');
'''End;'''
  else
  {
    for (i = 0 to strList.Count - 1)
      ShowMessage(Clomosy.StringListItemString(strList,i));
  }
}
</pre>


= See Also =
<h2> See Also </h2>
* [[Controls| Controls]]
* [[File_Handling | File Handling]]
{{#seo:|title=ClPathCombine in Clomosy - Clomosy Docs}}
{{#seo:|description=ClPathCombine in Clomosy allows you to merge file paths seamlessly, ensuring smooth file handling in your mobile applications.}}

Latest revision as of 13:23, 24 December 2024

FileNameString : Searched file name.
CombinePathString : The file path to merge.

clPathCombine is a function that is part of the Clomosy library. This function returns a string data by concatenating the file path and file name.

The general usage is as follows:

Example

If the file does not exist in the project directory, it saves the file. If the file exists, it adds a line to it. When the application runs for the first time, it will not find the file, so it will add it to the file path and display a message. When run for the second time, a line is added to the existing file. 

var
  strList:TclStringList;
  fileStr:String;
  i : Integer;
{
  strList = Clomosy.StringListNew;
  fileStr = clPathCombine('File.Txt',Clomosy.AppFilesPath);

  If (clFileExists(fileStr,Clomosy.AppFilesPath))
  {
    strList.Add('New Line 1');
    strList.SaveToFile(fileStr,0);
    ShowMessage('A line has been added to the existing file. To check, check your file via the file path. File path:'+#13#10+ fileStr);
  } else
  {
    strList.SaveToFile(fileStr,0);
    ShowMessage('The file has been added to the directory. Directory path: '+#13#10+ fileStr)
  }
  if (strList.Count <= 0)
     ShowMessage('Empty!');
   else
   {
     for (i = 0 to strList.Count - 1)
       ShowMessage(Clomosy.StringListItemString(strList,i));
   }
}

See Also

Retrieved from "http:///index.php?title=ClPathCombine&oldid=3702"