Hulp met programmeren

[Koradhil]

Ik probeer een kleine CMS op te zetten, maar ik stuit al direct op een error waar ik geen oplossing voor kan vinden.

Zie http://cms.korazu.com

De php code is de volgende:

<?php

define("MYSQL_SERVER", "localhost");
define("MYSQL_USERNAME", "korazu_cms");
define("MYSQL_PASSWORD", "***");

$sql_query = "SELECT * FROM 'cms_config'";

$dbconnect = mysql_connect(MYSQL_SERVER, MYSQL_USERNAME, MYSQL_PASSWORD) or die("Connection failed: " . msql_error());
mysql_select_db("korazu_cms") or die("Unable to select database: " . mysql_error());
$result = mysql_query($sql_query) or die("Query failed: " . mysql_error());

?>

De database genaamd korazu_cms heb ik aangemaakt in phpMyAdmin en bevat een drietal tables, waaronder cms_config. Deze table bevat twee velden: config_name en config_value. Er zijn momenteel drie waarden ingevult: maintitle, mainurl en adminemail.
Wat betreft de database waarden klopt het wel, alleen ik snap niet waarom ik dan een SQL error krijg...

Iemand een idee?
Owja, ergens een open-source CMS vandaan halen is no-go, ik wil het zelf schrijven.

[Koradhil]

Oke, probleem is al opgelost, bleek dat ik geen aanhalingstekens moest gebruiken rond cms_config in de SQL query..
Topic mag nog wel even open blijven voor eventuele andere problemen.

[Demoniac]

MODBREAK
Technische vraag, er komt geen rook uit.. move naar software!

Demoniac
Ben je het niet eens met deze modbreak? Stuur me een PM.

[Koradhil]

Bij gebrek aan een webdesign/scripting forum koos ik maar voor area 1337. Software kan je het eigenlijk niet noemen namelijk. Prima zo hoor

[Koradhil]

Ik ben momenteel bezig met een programmatje in Delphi. Het is het vrij simpele spel Boter, Kaas & Eieren (opdracht voor school..).
De hele GUI enzo heb ik al klaar, ik heb 9 panels gemaakt voor de vakjes. De caption hiervan kan X of O worden als je er op klikt, afhankelijk van welke speler aan de beurt is. Ik wil nu echter de controle gaan inbouwen voor wanneer er 3 op een rij is. Ik wil dit gewoon heel simpel doen door elke keer als er op een knop wordt geklikt te controleren of 1 van de 8 mogelijkheden (3x horizontaal, 3x verticaal en 2x diagonaal) TRUE is.
Ik probeerde de volgende regel:

if A1.Caption = A2.Caption = A3.Caption and A1.Caption is not '' then Winner := A1.Caption;

Deze regel werkt echter niet en ik heb wel andere dingen geprobeerd maar ik kom er niet uit..
Nog even het deel van de code:

procedure TForm1.A1Click(Sender: TObject);
begin
A1.Caption := Speler;
if Speler = 'X' then Speler := 'O' else Speler := 'X';
A1.Enabled := False;
if A1.Caption = A2.Caption = A3.Caption and A1.Caption is not '' then Winner := A1.Caption;
if B1.Caption = B2.Caption then Winner := B1.Caption;
if C1.Caption = C2.Caption then Winner := C1.Caption;
if A1.Caption = B1.Caption then Winner := A1.Caption;
if A2.Caption = B2.Caption then Winner := A2.Caption;
if A3.Caption = B3.Caption then Winner := A3.Caption;
if A1.Caption = B2.Caption then Winner := A1.Caption;
if A3.Caption = B2.Caption then Winner := A3.Caption;
end;

Iemand een idee?

[Demoniac]

Ik heb zelf geen ervaring met Delphi, maar wel met VB6 dus misschien dat ik wel wat kan helpen..
Heb je al wat huis-tuin-en-keuken debug dingetjes geprobeerd?
Wordt de code uitgevoerd zodra je op een knop drukt? (popup box die verschijnt zodra de knop ingedrukt wordt)
Heb je bij elke knop de juiste variabelen in de code gezet?
Komen de verwachte waarden uit de code? (popup box met daarin de Caption van A1)

Ik weet niet hoe Delphi omgaat met het groeperen van variabelen, maar ik zou voor de zekerheid met haakjes gaan strooien:

if ((A1.Caption = A2.Caption = A3.Caption) and (A1.Caption is not '')) then (Winner := A1.Caption);

Het zou ook nog kunnen dat de fout in die is not '' zit, probeer eens de knoppen te nummeren (zet de ID van de knop er op) en sloop die is not er tijdelijk uit.

[Koradhil]

Het probleem is nu grotendeels opgelost, die haakjes waren inderdaad nodig
Het werkt nu allemaal, echter heb ik 9 knoppen die allemaal vrijwel dezelfde OnClick code hebben. Als er op 1 van de knoppen wordt geklikt gaat hij namelijk controleren of er 3 op een rij is. Deze code heb ik nu werkend, echter is deze code behoorlijk lang en komt regelmatig voor. Ik wil hier dus een procedure/function van maken, maar daar kom ik nog niet uit ..

procedure CheckStatus();
begin
if (A1.Caption = A2.Caption) and (A1.Caption = A3.Caption) and not (A1.Caption = '') then Winner := A1.Caption;
if (B1.Caption = B2.Caption) and (B1.Caption = B3.Caption) and not (B1.Caption = '') then Winner := B1.Caption;
if (C1.Caption = C2.Caption) and (C1.Caption = C3.Caption) and not (C1.Caption = '') then Winner := C1.Caption;
if (A1.Caption = B1.Caption) and (A1.Caption = C1.Caption) and not (A1.Caption = '') then Winner := A1.Caption;
if (A2.Caption = B2.Caption) and (A2.Caption = C2.Caption) and not (A2.Caption = '') then Winner := A2.Caption;
if (A3.Caption = B3.Caption) and (A3.Caption = C3.Caption) and not (A3.Caption = '') then Winner := A3.Caption;
if (A1.Caption = B2.Caption) and (A1.Caption = C3.Caption) and not (A1.Caption = '') then Winner := A1.Caption;
if (A3.Caption = B2.Caption) and (A3.Caption = C1.Caption) and not (A3.Caption = '') then Winner := A3.Caption;
if not (Winner = '') then begin
Panel1.Caption := 'Winnaar: '+ Winner;
A1.Enabled := False;
A2.Enabled := False;
A3.Enabled := False;
B1.Enabled := False;
B2.Enabled := False;
B3.Enabled := False;
C1.Enabled := False;
C2.Enabled := False;
C3.Enabled := False;
if not (A1.Caption = '') and not (A2.Caption = '') and not (A3.Caption = '') and not (B1.Caption = '') and not (B2.Caption = '') and not (B3.Caption = '') and not (C1.Caption = '') and not (C2.Caption = '') and not (C3.Caption = '') and (Winner = '') then Panel1.Caption := 'Gelijk spel!';
end
end

Dit is de code van de procedure die ik aangemaakt heb. Die wil ik dus als volgt aanroepen bij het klikken op een knop:

procedure TForm1.A1Click(Sender: TObject);
begin
A1.Caption := Speler;
if Speler = 'X' then Speler := 'O' else Speler := 'X';
Status.Panels[0].Text := 'Aan de beurt: '+Speler;
A1.Enabled := False;
CheckStatus();
end;