Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Excel secili satır
#21
üründen yürüyün fonksiyon içinden değil Smile

Aşağıdakini  bir butona yazın ve basın  Idea

örnek :

procedure TForm1.BitBtn1Click(Sender: TObject);

var
  Yakala: TStringList;
begin
  Yakala := TStringList.Create;
  try
    Yakala.Delimiter := '|';
    Yakala.DelimitedText := SeciliHucreler( 3, True, '|', 100, 100 );
    ShowMessage( Yakala.Text );
  finally
    Yakala.Free;
  end;


Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#22
Dediğiniz gibi yaptım fakat,

Bu şekilde parçalıyor
E
003
A
045
A
348
A
045


Olması gereken
E 003
A 045
A 348
A 045

Huh
Cevapla
#23
Aralarında ( her hücrenin içinde )  ENTER/LF vardır.
Satırı okurken StringReplace ile (LINE FEED aslında) karakterini silin.

Şöyle bir örnek deneyin.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Yakala    : TStringList;
 strSatir  : String;
begin
 strSatir := SeciliHucreler( 3, True, '|', 100, 100 );
 strSatir := StringReplace( strSatir, #10, '', [rfReplaceAll] );

 Yakala := TStringList.Create;
 try
   Yakala.Delimiter := '|';
   Yakala.DelimitedText := strSatir;
   ShowMessage( Yakala.Text );
 finally
   Yakala.Free;
 end;
end;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#24
@mrmarman Hocam kusuruma bakmayın lütfen cevap vermek zorunda değilsiniz.

Her boşluktan sonra yeni bir add oluşuyor. Enter ile ilgisi yok yeni excel oluşturdum test ettim.
StringReplace işle boşlukları alınca yan, yana ekliyor. Ama bu seferde kelimeler bitişik oluyor.


 StrSatir := StringReplace(StrSatir, ' ', '', [rfReplaceAll]);



Bu şekilde Yakala.Add(strResult); kodun içine entegre edince alıyorum. Ama kod işlemini tamamlamamış oluyor bu seferde.

if Trim(strHucreValue) <> '' then
begin
  if Result = '' then
    Result := strResult
  else
    Result := Result + aSeparator + strResult;
  Yakala.Add(strResult);
end;
Cevapla
#25
Anlıyorum da duramıyorum.

- LF görünen yeri değiştidiğinde kullanılan bitişik / yanaşık '' işareti içerisine bir boşluk koyarsan arası bitişik değil açık olur

 strSatir := StringReplace( strSatir, #10, ' ', [rfReplaceAll] );
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#26
(05-03-2019, Saat: 14:01)mrmarman Adlı Kullanıcıdan Alıntı: Anlıyorum da duramıyorum.

Hastasının kakıp yürüdüğünü ve hatta koştuğunu görmeyene dek içi rahat etmeyen doktor gibisiniz.

Bir babanın, bir annenin evladını sabırla yürütmeye çalışması gibi.
Cevapla
#27
(24-02-2019, Saat: 19:06)mcuyan Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar.

Çok işime yarayan bir kod bloğumu sizlerle paylaşmak istedim. 
Yapılmak istenilen şey: Yazıcı listesini Combobox'a alıp, seçilen yazıcıya FrX'imizi yazdırmak.

Adım 1: Combobox'a Printer listesini yüklemek (Uses'a Printers eklemeniz gerekiyor)

ComboBox1.Items.Assign(Printer.printers);


Adım 2: Seçilen Yazıcıya FrX reportu yollamak

  
frxReport1.PrintOptions.Printer := Combobox1.Text;
//  frxReport1.PrintOptions.Copies := 1; // Buraya İstediğiniz kopya sayısını yazabilirsiniz.
 frxReport1.PrintOptions.ShowDialog := False;
 frxReport1.PrepareReport(TRue);
 frxReport1.Print;

Yukarıdaki kullanım şekli ile FrX önizleme ekranı hiç açmadan direk yazıcıya gönderebilmenizi sağlar.


Konuya dahil olmaya çalışmanızı anlayamadım. Burada cevap verme veya vermeme hakkına ilgili kişinin kararı. 
Çok merak etim siz anladıysanız lütfen anladığınız şeyi anlamayan bana anlatır mısınız?
Cevapla
#28
Gerilmeye lüzum yok excel örneği koyarsanız bakarız sorun neymiş diye...
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#29
Ben olayı anlamadım ? Alıntı başka bir konudan, yazılan başka bir konu, sanırım bir hata oldu.
WWW
Cevapla
#30
Alıntıyı nasıl farklı yapmış anlamadım, benim sözüm @ChangeoveR
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  DBLookupComboBox'da istenilen kayıt seçili gelsin OZCANK 7 475 30-01-2019, Saat: 21:09
Son Yorum: OZCANK
  Excel den Delphi ye veri çekme nmtsltn 1 435 26-12-2018, Saat: 11:32
Son Yorum: DelphiCan Yönetim
  Excel Export PDF pro_imaj 16 7.103 04-07-2018, Saat: 18:21
Son Yorum: pro_imaj
  Excel, PDF ve Yazıcı formu Component 3ddark 8 903 22-06-2018, Saat: 14:46
Son Yorum: edo
  [ÇÖZÜLDÜ]-cxDBPivotGrid Seçili Satır Alan Değeri Alma hi_selamlar 2 592 21-06-2018, Saat: 10:40
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi