Genel İşlemler - Syntax Hatası

Sayfayı Yazdır | Pencereyi Kapat

Syntax Hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=923
Tarih: 06 Ocak 2025 Saat 14:11
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Syntax Hatası

Mesajı Yazan: NadireNurSaglam
Konu: Syntax Hatası
Mesaj Tarihi: 02 Eylül 2024 Saat 14:32

clQuery := Clomosy.DBCloudQueryWith(ftGroups,'','ISNULL(OwnerGroup_ID,-1)=-1');

ShowMessage(clQuery.GetJSONString);

mainLvw.clLoadProListViewDataFromDataset(clQuery);

mainLvw.clLoadProListViewDataFromDataset(clQuery); Bu satırda aşağıdaki hatayı alıyorum:

--------------------------------------------------------------------
TclForm
Syntax error.
Source position: 67,5
Clomosy Build : 20240709.111531
--------------------------------------------------------------------
LastUnitName:uBasicForm

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 02 Eylül 2024 Saat 15:27

Merhaba Nadire

Bütün kodunu paylaşır mısın?

Mesajı Yazan: NadireNurSaglam
Mesaj Tarihi: 02 Eylül 2024 Saat 15:42

var

myForm:TclForm;

Group_ID,

Group_GUID,

OwnerGroup_GUID,

Group_Name,

Group_NameEx,

Group_Description,

Group_DescriptionEx,

Group_Image,

Group_ImageSmall:TclProLabel;

mainListView:TClListView;

mainLvw:TClProListView;

mainLvwDp:TClProListViewDesignerPanel;

NavPnl:TCLPanel;

addBtn,reloadBtn:TClProButton;

uDataEntry:TCLUnit;

mainTitleLyt:TClLayout;

mainTitleLbl:TclProLabel;

searchEdt:TclSearchEdit;

function GetIDFromGUID(AGuid:string):string;

var

clQuery :TclJSONQuery;

begin

Try

clQuery := Clomosy.DBCloudQueryWith(ftGroups,AGuid,'1=1');

Result :=clQuery.FieldByName('Group_ID').AsString;

//ShowMessage(clQuery.GetJSONString);

finally

clQuery.Free;

End;

procedure onItemClick;

begin

//Group_ID.Hint := mainLvw.clSelectedItemData(clRecord_GUID);

Group_ID.Hint := GetIDFromGUID(mainLvw.clSelectedItemData(clCaption));

Group_GUID.Hint := mainLvw.clSelectedItemData(clCaption);

OwnerGroup_GUID.Hint:= mainLvw.clSelectedItemData(clText);

Group_Name.Hint:= mainLvw.clSelectedItemData(clText1);

Group_NameEx.Hint:= mainLvw.clSelectedItemData(clText2);

Group_Description.Hint := mainLvw.clSelectedItemData(clText3);

Group_DescriptionEx.Hint := mainLvw.clSelectedItemData(cltext4);

Group_Image.Hint := mainLvw.clSelectedItemData(cltext5);

Group_ImageSmall.Hint := mainLvw.clSelectedItemData(cltext6);

uDataEntry := TCLUnit.Create;

uDataEntry.UnitName:='uDataEntry';

uDataEntry.CallerForm := MyForm;

uDataEntry.Run;

End;

Procedure OnloadListView;

var

clQuery :TclJSONQuery;

begin

Try

clQuery := Clomosy.DBCloudQueryWith(ftGroups,'','ISNULL(OwnerGroup_ID,-1)=-1');

ShowMessage(clQuery.GetJSONString);

mainLvw.clLoadProListViewDataFromDataset(clQuery);

finally

clQuery.Free;

End;

procedure addBtnOnClick;

begin

Group_ID.Hint := '';

Group_GUID.Hint := '';

OwnerGroup_GUID.Hint:= '';

Group_Name.Hint:= '';

Group_NameEx.Hint:= '';

Group_Description.Hint := '';

Group_DescriptionEx.Hint := '';

Group_Image.Hint := '';

Group_ImageSmall.Hint := '';

uDataEntry := TCLUnit.Create;

uDataEntry.UnitName:='uDataEntry';

uDataEntry.CallerForm := MyForm;

uDataEntry.Run;

end;

procedure ReloadBtnOnClick;

begin

OnloadListView;

end;

procedure SetLayout;

begin

mainTitleLyt := MyForm.AddNewLayout(MyForm,'mainTitleLyt');

mainTitleLyt.Align := alMostTop;

mainTitleLyt.Width := 100;

mainTitleLyt.Height := 50;

mainTitleLbl := MyForm.AddNewProLabel(mainTitleLyt,'mainTitleLbl','Diller');

/* clComponent.SetupComponent(mainTitleLbl,'{"Align" : "Center",

"Width" :350,

"Height":30,

"TextColor":"#000000",

"TextSize":25,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes"}');*/

mainTitleLbl.Align:= alCenter;

mainTitleLbl.Width:= 350;

mainTitleLbl.Height:= 30;

mainTitleLbl.clProSettings.FontColor:= clAlphaColor.clHextoColor('#000000');

mainTitleLbl.clProSettings.FontSize:=25;

mainTitleLbl.clProSettings.FontVertAlign:=palCenter;

mainTitleLbl.clProSettings.FontHorzAlign :=palCenter;

mainTitleLbl.clProSettings.TextSettings.Font.Style:=[fsBold];

mainTitleLbl.SetclProSettings(mainTitleLbl.clProSettings);

mainLvw := MyForm.AddNewProListView(MyForm,'mainLvw');

mainLvw.Properties.ItemSpace := 10;

// clComponent.SetupComponent(mainLvw,'{"Align":"Client","ItemColumnCount" : 1,"ItemHeight" : 120,"MarginLeft":15,"MarginRight":15}');

mainLvw.Align:=alClient;

mainLvw.clProSettings.ColCount:=1; //çalıma durumu kontrol edilecek

mainLvw.clProSettings.ItemHeight:= 120;

mainLvw.Margins.Left:=15;

mainLvw.Margins.Right:=15;

mainLvw.SetclProSettings(mainLvw.clProSettings);

mainLvw.ListType := 'vertical';

MyForm.AddNewEvent(mainLvw,tbeOnItemClick,'onItemClick');

mainLvwDp := MyForm.AddNewProListViewDesignerPanel(mainLvw,'mainLvwDp');

// clComponent.SetupComponent(mainLvwDp,'{"Height":120,"BackgroundColor":"#ffffff","Align":"Top"}');

mainLvwDp.Height:=120;

mainLvwDp.clProSettings.BackgroundColor := clAlphaColor.clHextoColor('#ffffff');

mainLvwDp.Align:=alTop;

mainLvwDp.SetclProSettings(mainLvwDp.clProSettings);

mainLvwDp.Visible:=False;

searchEdt:=MyForm.AddNewproSearchEdit(MyForm,'searchEdt','Search Something...');

searchEdt.Align:=alTop;

searchEdt.Margins.Top:=15;

searchEdt.Margins.left:=15;

searchEdt.Margins.Right:=15;

searchEdt.Margins.Bottom:=10;

searchEdt.Height:=40;

searchEdt.TargetListView := mainLvw;

searchEdt.BindItemFieldName := 'Group_Name';

Group_GUID := MyForm.AddNewProLabel(mainLvwDp,'Group_GUID','Group GUID');

// clComponent.SetupComponent(Group_GUID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_GUID.Align:= alTop;

Group_GUID.Margins.Bottom:=1;

Group_GUID.Margins.left:= 5;

Group_GUID.clProSettings.TextSettings.Font.Style:=[fsBold];

Group_GUID.clProSettings.FontSize:= 16;

Group_GUID.clProSettings.FontVertAlign:= palLeading;

Group_GUID.clProSettings.FontHorzAlign:= palLeading;

Group_GUID.SetclProSettings(Group_GUID.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_GUID,clCaption);

OwnerGroup_GUID := MyForm.AddNewProLabel(mainLvwDp,'OwnerGroup_GUID','Owner Group GUID');

// clComponent.SetupComponent(OwnerGroup_GUID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"Right","TextVerticalAlign":"left","AutoSize":"horizontal"}');

OwnerGroup_GUID.Align:= alTop;

OwnerGroup_GUID.Margins.Bottom:=1;

OwnerGroup_GUID.Margins.left:=5;

OwnerGroup_GUID.clProSettings.TextSettings.Font.Style:= [fsBold];

OwnerGroup_GUID.clProSettings.FontSize:=16;

OwnerGroup_GUID.clProSettings.FontHorzAlign:=palTrailing;

OwnerGroup_GUID.clProSettings.FontVertAlign:=palLeading;

//"AutoSize":"Horizontal" kısmı yok

OwnerGroup_GUID.SetclProSettings(OwnerGroup_GUID.clProSettings);

mainLvwDp.AddPanelObject(OwnerGroup_GUID,clText);

Group_Name := MyForm.AddNewProLabel(mainLvwDp,'Group_Name','Group Name');

// clComponent.SetupComponent(Group_Name,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_Name.Align:= alTop;

Group_Name.Margins.Bottom := 1;

Group_Name.Margins.left:=5;

Group_Name.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Name.clProSettings.FontSize:= 16;

Group_Name.clProSettings.FontHorzAlign:=palLeading;

Group_Name.clProSettings.FontVertAlign:=palLeading;

Group_Name.SetclProSettings(Group_Name.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_Name,clText1);

Group_NameEx := MyForm.AddNewProLabel(mainLvwDp,'Group_NameEx','Group NameEx');

// clComponent.SetupComponent(Group_NameEx,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_NameEx.Align:= alTop;

Group_NameEx.Margins.Bottom := 1;

Group_NameEx.Margins.left:=5;

Group_NameEx.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_NameEx.clProSettings.FontSize:= 16;

Group_NameEx.clProSettings.FontHorzAlign:=palLeading;

Group_NameEx.clProSettings.FontVertAlign:=palLeading;

Group_NameEx.SetclProSettings(Group_NameEx.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_NameEx,clText2);

Group_Description := MyForm.AddNewProLabel(mainLvwDp,'Group_Description','');

// clComponent.SetupComponent(Group_Description,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_Description.Align:= alTop;

Group_Description.Margins.Bottom := 1;

Group_Description.Margins.left:=5;

Group_Description.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Description.clProSettings.FontSize:= 16;

Group_Description.clProSettings.FontHorzAlign:=palLeading;

Group_Description.clProSettings.FontVertAlign:=palLeading;

Group_Description.SetclProSettings(Group_Description.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_Description.Visible := False;

mainLvwDp.AddPanelObject(Group_Description,clText3);

Group_DescriptionEx := MyForm.AddNewProLabel(mainLvwDp,'Group_DescriptionEx','');

// clComponent.SetupComponent(Group_DescriptionEx,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_DescriptionEx.Align:= alTop;

Group_DescriptionEx.Margins.Bottom := 1;

Group_DescriptionEx.Margins.left:=5;

Group_DescriptionEx.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_DescriptionEx.clProSettings.FontSize:= 16;

Group_DescriptionEx.clProSettings.FontHorzAlign:=palLeading;

Group_DescriptionEx.clProSettings.FontVertAlign:=palLeading;

Group_DescriptionEx.SetclProSettings(Group_DescriptionEx.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_DescriptionEx.Visible := False;

mainLvwDp.AddPanelObject(Group_DescriptionEx,clText4);

Group_Image := MyForm.AddNewProLabel(mainLvwDp,'Group_Image','');

// clComponent.SetupComponent(Group_Image,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_Image.Align:= alTop;

Group_Image.Margins.Bottom := 1;

Group_Image.Margins.left:=5;

Group_Image.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Image.clProSettings.FontSize:= 16;

Group_Image.clProSettings.FontHorzAlign:=palLeading;

Group_Image.clProSettings.FontVertAlign:=palLeading;

Group_Image.SetclProSettings(Group_Image.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_Image.Visible := False;

mainLvwDp.AddPanelObject(Group_Image,clText5);

Group_ImageSmall := MyForm.AddNewProLabel(mainLvwDp,'Group_ImageSmall','');

// clComponent.SetupComponent(Group_ImageSmall,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_ImageSmall.Align:= alTop;

Group_ImageSmall.Margins.Bottom := 1;

Group_ImageSmall.Margins.left:=5;

Group_ImageSmall.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_ImageSmall.clProSettings.FontSize:= 16;

Group_ImageSmall.clProSettings.FontHorzAlign:=palLeading;

Group_ImageSmall.clProSettings.FontVertAlign:=palLeading;

Group_ImageSmall.SetclProSettings(Group_ImageSmall.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_ImageSmall.Visible := False;

mainLvwDp.AddPanelObject(Group_ImageSmall,clText6);

NavPnl:=myForm.AddNewPanel(myForm,'NavPnl');

NavPnl.Align:=alMostBottom;

NavPnl.Height := 100;

NavPnl.StyleLookup:='pushpanel';

Group_ID := MyForm.AddNewProLabel(NavPnl,'Group_ID','');

// clComponent.SetupComponent(Group_ID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_ID.Align:= alTop;

Group_ID.Margins.Bottom := 1;

Group_ID.Margins.left:=5;

Group_ID.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_ID.clProSettings.FontSize:= 16;

Group_ID.clProSettings.FontHorzAlign:=palLeading;

Group_ID.clProSettings.FontVertAlign:=palLeading;

Group_ID.SetclProSettings(Group_ID.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_ID.Visible := False;

addBtn := MyForm.AddNewProButton(NavPnl,'addBtn','');

// clComponent.SetupComponent(addBtn,'{"Align" : "MostRight","MarginRight":20,"MarginLeft":10,"Width" :70, "Height":70}');

addBtn.Align:=alMostRight;

addBtn.margins.Right:=20;

addBtn.margins.left:=10;

addBtn.Width:= 70;

addBtn.Height:= 70;

MyForm.SetImage(addBtn,' https://clomosy.com/learn/add_black.png" rel="nofollow - https://clomosy.com/learn/add_black.png ');

MyForm.AddNewEvent(addBtn,tbeOnClick,'addBtnOnClick');

reloadBtn := MyForm.AddNewProButton(NavPnl,'reloadBtn','');

// clComponent.SetupComponent(reloadBtn,'{"Align" : "Right","MarginLeft":10,"Width" :100, "Height":100}');

reloadBtn.Align:=alRight;

reloadBtn.margins.left:=10;

reloadBtn.Width:= 100;

reloadBtn.Height:= 100;

MyForm.SetImage(reloadBtn,' https://clomosy.com/educa/refresh.png" rel="nofollow - https://clomosy.com/educa/refresh.png ');

MyForm.AddNewEvent(reloadBtn,tbeOnClick,'OnloadListView');

end;

begin

myForm := TclForm.Create(Self);

SetLayout;

OnloadListView;

myForm.Run;

end;

Mesajı Yazan: Developer
Mesaj Tarihi: 02 Eylül 2024 Saat 17:13

Merhaba Nadire

https://www.docs.clomosy.com/index.php/Main_Page" rel="nofollow - https://www.docs.clomosy.com/index.php/Main_Page adresin yeni exe indirip deneme imkanınız var mı? Ben herhangi bir hata alamadım.

Mesajı Yazan: NadireNurSaglam
Mesaj Tarihi: 02 Eylül 2024 Saat 17:30

Attığınız linkten tekrar exe indirip çalıştırdım. Ama yine de aynı hatayı almaya devam ediyorum.