Hallo Leute,
ich habe folgenden Quellcode in meinem Programm(Mapeditor) vewendet, um eine geänderte Karte zu updaten. Die Karte ist 128*127 Felder groß und besteht aus Zahlen von 0 bis n, diese repräsentieren die verwendenten Texturen. Über eine Datenbank kann das dazugehörige Spiel dann die Daten auslesen und die Texturen darstellen.
Delphi-Quellcode:
for i := 1
to 127
do
for j := 0
to 127
do
if NOT (map[j,i] = mapold[j,i])
then
begin
query := PChar('
UPDATE map SET `' + inttostr(j) + '
` = "' + inttostr(map[i,j]) + '
" WHERE (`ID`=' + inttostr(i) + '
) ');
mysql_real_query(_myCon,
query, Length(
query));
end;
Die Variablen:
Delphi-Quellcode:
VAR
query: PChar;
_myCon: PMySQL;
//Verbindungsdeskriptor
i,j,l: Integer;
Danke im Voraus für nützliche Hilfe
