var

  originalFile, updatedFile : TclStringList;

  myFilePath, currentLine : String;

  i : Integer;

{

  myFilePath = Clomosy.AppBasePath;

  //myFilePath = clPathCombine('myCompanyData.csv', Clomosy.AppBasePath);

  originalFile = Clomosy.StringListNew;

  updatedFile = Clomosy.StringListNew;

  if ((clFileExists('myCompanyData.csv',myFilePath) == True))

  {

    originalFile.LoadFromFile(myFilePath + 'myCompanyData.csv',0);

    

    for (i = 0 to originalFile.Count - 1)

    {

      currentLine = Clomosy.StringListItemString(originalFile, i);

      

      if ((Pos('Ali Yilmaz', currentLine) > 0))

      {

        updatedFile.Add('101;Ali Yilmaz;65000');

      }

      else

      {

        updatedFile.Add(currentLine);

      }

    }

    

    updatedFile.SaveToFile(myFilePath +'myCompanyData.csv',0);

    ShowMessage('Kayıt güncellendi ve eski dosyanın üzerine yazıldı!');

    ShowMessage('Dosyanın bulunduğu konum: '+myFilePath);

  }

  else

  {

    updatedFile.Add('ID;Name;Salary'); 

    updatedFile.Add('101;Ali Yilmaz;65000');

    updatedFile.SaveToFile(myFilePath + 'myCompanyData.csv',0);

    ShowMessage('Dosya bulunamadı, bu yüzden yeni dosya oluşturuldu ve veriler eklendi!');

    ShowMessage('Dosyanın bulunduğu konum: '+myFilePath);

  }

}







.