Yorumları: 1.313
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983
Üstad
(20-05-2018, Saat: 00:07)Paranoyaq Adlı Kullanıcıdan Alıntı: (19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: Merhaba,
Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...
Buyurun kodları da atayım;
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Guncellendi: String;
begin
Guncellendi := KelimeDegistir(Memo1.Lines.Text, LabeledEdit1.Text, LabeledEdit2.Text);
Memo1.Lines.Text := Guncellendi;
end;
end.
Hocam çok teşekkür ederim emeğinize sağlık
Rica ederim hocam, REP ile süsle bende mutlu olayım 
Yorumları: 219
Konuları: 46
Kayıt Tarihi: 16-03-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 273
Acemi
(20-05-2018, Saat: 00:12)hyperxman Adlı Kullanıcıdan Alıntı: Rica ederim hocam, REP ile süsle bende mutlu olayım
Herzaman hocam +rep
Yorumları: 1
Konuları: 0
Kayıt Tarihi: 02-08-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 0
Başlangıç
Teşekkür ederim hocam çok işime yaradı.
Yorumları: 1.313
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983
Üstad
(04-05-2019, Saat: 17:47)bulentelmas@uzaymutfak.net Adlı Kullanıcıdan Alıntı: Teşekkür ederim hocam çok işime yaradı.
Rica ederim  )
Yorumları: 147
Konuları: 35
Kayıt Tarihi: 13-07-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 149
Başlangıç
Merhabalar arkadaşlar şöyle bir sorunum var. Kantar programı projem var elimdeki program yetersiz kaldığı için yenisini yazmaya ihtiyaç duydum.sorum şu eski kantar programında comboboxa plakayı ne şekilde girersek girelim veri tabanına belirli kalıpta kayıt oluyor. örneğin 68AL495 yazınca 68 AL 495 şeklinde, 42CSM359 yazınca 42 CSM 359 şeklinde düzenli bir kayıt yapılıyor. Verinin harf kısmı küçük olsa dahi her daim büyük şekilde kaydediliyor ben bunu kendi projemde nasıl yapabilirim.
Yorumları: 580
Konuları: 15
Kayıt Tarihi: 24-03-2017
Rep Puanı: 3.480
Uzman
Bir proje içerisinde kullandığım plaka düzeltme fonksiyonu
{-------------------------------------------------------------------------------
-PLAKA DÜZELTME
Plaka Düzeltme Fonksiyonu
Girilen stringdeki boşluk karakterler temizlenir,
rakam - boşluk - karakter - boşluk - rakam varsa diğer karakterler
büyük harf olarak geri dönderilir
-------------------------------------------------------------------------------}
Function plaka_duzelt (sdata: String): String;
Var
i: Integer;
ts, sr, s: String;
pr1, ps, pr2: String;
Label
1, 2;
Begin
// stringdeki boşlukları temizle
sr := '';
s := trim (sdata);
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If ts <> ' ' Then
sr := sr + ts;
End;
s := sr;
// başta rakam varmı
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Then
pr1 := pr1 + ts
Else
Goto 1;
End;
//------
1:
// aradaki karakterleri
If length (pr1) > 0 Then
Begin
If (i > 1) Then
i := i - 1;
delete (s, 1, i);
If length (pr1) = 1 Then
pr1 := '0' + pr1;
End;
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Or (ts = ' ') Then
Goto 2
Else
ps := ps + ts;
End;
2:
// en son rakamlar
If i > 1 Then
i := i - 1;
delete (s, 1, i);
pr2 := s;
//-------
sr := UpperCase (pr1 + ' ' + ps + ' ' + pr2);
sr := trim (sr);
result := sr;
End;
Yorumları: 147
Konuları: 35
Kayıt Tarihi: 13-07-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 149
Başlangıç
Arkadaşım cevabın için çok teşekkür ediyorum. Şimdi bu fonksiyon direk veri tabanında mı değişiklik yapıyor yoksa önce formda değişiklik yapıp sonra veri tabanına kayıt yapıyor orasını anlayamadım kusura bakmayın profesyonel bir programcı değilim. Eğer ki zamanınız varsa neyi nereye yazmam gerektiğini açıklar mısınız?
Yorumları: 147
Konuları: 35
Kayıt Tarihi: 13-07-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 149
Başlangıç
(17-08-2019, Saat: 15:29)frmman Adlı Kullanıcıdan Alıntı: Bir proje içerisinde kullandığım plaka düzeltme fonksiyonu
{-------------------------------------------------------------------------------
-PLAKA DÜZELTME
Plaka Düzeltme Fonksiyonu
Girilen stringdeki boşluk karakterler temizlenir,
rakam - boşluk - karakter - boşluk - rakam varsa diğer karakterler
büyük harf olarak geri dönderilir
-------------------------------------------------------------------------------}
Function plaka_duzelt (sdata: String): String;
Var
i: Integer;
ts, sr, s: String;
pr1, ps, pr2: String;
Label
1, 2;
Begin
// stringdeki boşlukları temizle
sr := '';
s := trim (sdata);
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If ts <> ' ' Then
sr := sr + ts;
End;
s := sr;
// başta rakam varmı
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Then
pr1 := pr1 + ts
Else
Goto 1;
End;
//------
1:
// aradaki karakterleri
If length (pr1) > 0 Then
Begin
If (i > 1) Then
i := i - 1;
delete (s, 1, i);
If length (pr1) = 1 Then
pr1 := '0' + pr1;
End;
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Or (ts = ' ') Then
Goto 2
Else
ps := ps + ts;
End;
2:
// en son rakamlar
If i > 1 Then
i := i - 1;
delete (s, 1, i);
pr2 := s;
//-------
sr := UpperCase (pr1 + ' ' + ps + ' ' + pr2);
sr := trim (sr);
result := sr;
End;
Cevabınız için çok teşekkür ederim denemesini yapayım takıldığım bir yer olursa affınıza sığınarak sizi tekrar rahatsız ederim.
Yorumları: 147
Konuları: 35
Kayıt Tarihi: 13-07-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 149
Başlangıç
(17-08-2019, Saat: 15:29)frmman Adlı Kullanıcıdan Alıntı: Bir proje içerisinde kullandığım plaka düzeltme fonksiyonu
{-------------------------------------------------------------------------------
-PLAKA DÜZELTME
Plaka Düzeltme Fonksiyonu
Girilen stringdeki boşluk karakterler temizlenir,
rakam - boşluk - karakter - boşluk - rakam varsa diğer karakterler
büyük harf olarak geri dönderilir
-------------------------------------------------------------------------------}
Function plaka_duzelt (sdata: String): String;
Var
i: Integer;
ts, sr, s: String;
pr1, ps, pr2: String;
Label
1, 2;
Begin
// stringdeki boşlukları temizle
sr := '';
s := trim (sdata);
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If ts <> ' ' Then
sr := sr + ts;
End;
s := sr;
// başta rakam varmı
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Then
pr1 := pr1 + ts
Else
Goto 1;
End;
//------
1:
// aradaki karakterleri
If length (pr1) > 0 Then
Begin
If (i > 1) Then
i := i - 1;
delete (s, 1, i);
If length (pr1) = 1 Then
pr1 := '0' + pr1;
End;
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Or (ts = ' ') Then
Goto 2
Else
ps := ps + ts;
End;
2:
// en son rakamlar
If i > 1 Then
i := i - 1;
delete (s, 1, i);
pr2 := s;
//-------
sr := UpperCase (pr1 + ' ' + ps + ' ' + pr2);
sr := trim (sr);
result := sr;
End;
Kardeşim aşağıdaki gibi hata alıyorum.
[Warning] Unit1.pas(75): FOR-Loop variable 'i' may be undefined after loop
Yorumları: 580
Konuları: 15
Kayıt Tarihi: 24-03-2017
Rep Puanı: 3.480
Uzman
(17-08-2019, Saat: 17:42)bünyamin68 Adlı Kullanıcıdan Alıntı: (17-08-2019, Saat: 15:29)frmman Adlı Kullanıcıdan Alıntı: Bir proje içerisinde kullandığım plaka düzeltme fonksiyonu
{-------------------------------------------------------------------------------
-PLAKA DÜZELTME
Plaka Düzeltme Fonksiyonu
Girilen stringdeki boşluk karakterler temizlenir,
rakam - boşluk - karakter - boşluk - rakam varsa diğer karakterler
büyük harf olarak geri dönderilir
-------------------------------------------------------------------------------}
Function plaka_duzelt (sdata: String): String;
Var
i: Integer;
ts, sr, s: String;
pr1, ps, pr2: String;
Label
1, 2;
Begin
// stringdeki boşlukları temizle
sr := '';
s := trim (sdata);
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If ts <> ' ' Then
sr := sr + ts;
End;
s := sr;
// başta rakam varmı
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Then
pr1 := pr1 + ts
Else
Goto 1;
End;
//------
1:
// aradaki karakterleri
If length (pr1) > 0 Then
Begin
If (i > 1) Then
i := i - 1;
delete (s, 1, i);
If length (pr1) = 1 Then
pr1 := '0' + pr1;
End;
For i := 1 To length (s) Do
Begin
ts := copy (s, i, 1);
If (ts >= '0') And (ts <= '9') Or (ts = ' ') Then
Goto 2
Else
ps := ps + ts;
End;
2:
// en son rakamlar
If i > 1 Then
i := i - 1;
delete (s, 1, i);
pr2 := s;
//-------
sr := UpperCase (pr1 + ' ' + ps + ' ' + pr2);
sr := trim (sr);
result := sr;
End;
Kardeşim aşağıdaki gibi hata alıyorum.
[Warning] Unit1.pas(75): FOR-Loop variable 'i' may be undefined after loop
For döngüsü goto direktifi ile kırıldıktan sonra en son "i" değeri aşağıdaki kontrollerde kullanılıyor. Sanırım derleyici bu şekilde bir kullanımdan dolayı hata değil uyarı veriyor dikkatli ol diye
|
