From Clomosy Docs

No edit summary
No edit summary
 
(3 intermediate revisions by 2 users not shown)
Line 1: Line 1:
<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.
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.
 
'''For instance:'''
CombinedPath := clPathCombine('File.txt','C:\Document');
  // Now CombinedPath will be 'C:\Document\File.txt'.


'''Example:'''
<b>Example</b><br>


If the file does not exist in the project directory, it saves the file. If the file exists, it adds a line to it.
If the file does not exist in the project directory, it saves the file. If the file exists, it adds a line to it.
Line 19: Line 21:
When run for the second time, a line is added to the existing file.
When run for the second time, a line is added to the existing file.


:''TRObject Syntax''
<pre>
var
var
  strList:TclStringList;
  strList:TclStringList;
  fileStr:String;
  fileStr:String;
  i : Integer;
  i : Integer;
{
{
  strList = Clomosy.StringListNew;
  strList = Clomosy.StringListNew;
  fileStr = clPathCombine('File.Txt',Clomosy.AppFilesPath);
  fileStr = clPathCombine('File.Txt',Clomosy.AppFilesPath);
 
  If (clFileExists(fileStr,Clomosy.AppFilesPath))
  If (clFileExists(fileStr,Clomosy.AppFilesPath))
  {
  {
    strList.Add('New Line 1');
    strList.Add('New Line 1');
    strList.SaveToFile(fileStr,0);
    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);
    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
  } 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
   {
   {
     strList.SaveToFile(fileStr,0);
     for (i = 0 to strList.Count - 1)
    ShowMessage('The file has been added to the directory. Directory path: '+#13#10+ fileStr)
      ShowMessage(Clomosy.StringListItemString(strList,i));
   }
   }
  if (strList.Count <= 0)
}
      ShowMessage('Empty!');
</pre>
    else
    {
      for (i = 0 to strList.Count - 1)
        ShowMessage(Clomosy.StringListItemString(strList,i));
    }
}
 
:''Base Syntax''
var
  strList:TclStringList;
  fileStr:String;
  i : Integer;
begin
  strList := Clomosy.StringListNew;
  fileStr := clPathCombine('File.Txt',Clomosy.AppFilesPath);
  If clFileExists(fileStr,Clomosy.AppFilesPath) then
  begin
    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);
  end else
  begin
    strList.SaveToFile(fileStr,0);
    ShowMessage('The file has been added to the directory. Directory path: '+#13#10+ fileStr)
  end
  if strList.Count <= 0 then
      ShowMessage('Empty!');
    else
    begin
      for i := 0 to strList.Count - 1 do
        ShowMessage(Clomosy.StringListItemString(strList,i));
    end;
end;


= 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"