Hallo Leute!
Ich hab mich erst vor ein paar Tagen angemeldet und kenn mcih noch nicht ganz aus, aber ich hoffe mal, dass das Thema in dieser Rubrik nciht falsch ist
okai, also ich bin gerade beim selbstbeibringen und lese halt einige Tutorials, und nun bin ch bei den Arrays angekommen.
Da dacht ich mir, ich könnt soetwas fürs Rollenspiel benutzen, also die Werte, das Lvl, das Gepäck und die Erfahrungspunkte eines NPCs in soein array hineinschreiben könnte, damit ich sie später benutzen kann.
Nun hab ich aber nicht wirklich foren oder tutorials gefunden, wo erklärt ist, wie man das macht, wie ich das haben will (logisch, ich weis...^^")
Delphi-Quellcode:
{$R *.nfm}
var Giveoutplace:TFileStream;
chararray1:array [0..11] of string;
procedure TForm1.Button1Click(Sender: TObject);
var abentname,vorname,nachname,gepaeck:String;
lvl,Staerke,Geschick,Konstitution,Weisheit,Intelligenz,Charisma,erfahrungspunkte:Integer;
begin
abentname:=(editabent.text);
vorname:=(vorn1.text);
{ nachname:=(nachn1.text);
lvl:=strToInt(editlvl1.text);
staerke:=strToInt(str1.text);
geschick:=strToInt(ges1.text);
konstitution:=strToInt(kon1.text);
weisheit:=strToInt(wei1.text);
intelligenz:=strToInt(int1.text);
charisma:=strToInt(cha1.text);
gepaeck:=(gep1.text);
erfahrungspunkte:=strToInt(ep1.text);} //müsste überflüssig sein...
chararray1[0]:=abentname;
chararray1[1]:=vorname;
chararray1[2]:=nachname;
chararray1[3]:=editlvl1.text;
chararray1[4]:=str1.text;
chararray1[5]:=(ges1.text);
chararray1[6]:=(kon1.text);
chararray1[7]:=(wei1.text);
chararray1[8]:=(int1.text);
chararray1[9]:=(cha1.text);
chararray1[10]:=(gep1.text);
chararray1[11]:=(ep1.text);
{soltle zum erstellen einer Datei sein, wo es reingeschrieben wird}
giveoutplace:=tfilestream.create('C:\Dokumente und Einstellungen\User\Desktop\Eigene Datein\Rollenspiel\unten\Abenteuerdelphi\'+Abentname+'\'+Vorname, fmOpenRead or fmShareDenyWrite);
{sollte zum einlesen n die entstandene Datei sein, is aber komplett falsch...}
giveoutplace(chararray1):='C:\Dokumente und Einstellungen\User\Desktop\Eigene Datein\Rollenspiel\unten\Abenteuerdelphi\'+Abentname+'\'+Vorname;
end;
end.
so ungefähr sieht das aus.
ich möchte halt die werte alle einlesen, und dann in nem ordner als irgendeine datei speichern (ja, das müsste mir auch fehlen...^^"), sodass ich sie später wieder auslesen kann
Weil ich die Charaktere nicht alle in den gleichen Ordner packen woltle, dachte ich mir, dass ich für jeden einen neuen ordner erstelle, also dann im Ordner (...\abentname+'\'+Vorname) abspeichern.
Das ergebnis würd ich dann zu gegebener zeit gerne wieder aufrufen, aber den Teil würd ich dann alleine machen, wenn ich das hier verstanden habe
okai, also ich hoffe das ihr (die das lest [grammatisch richtig?]) das versteht und mir antworten könnt
bräuchte hilfe, die ich auch verstehe und nicht abpinsel
wenn ihr irgendwelche links postet, wo das auch erklärt ist, wär ich auch dankbar
ich bin noch nicht soweit in delphi, und wenn ich erstmal andere sachen machen soltle (im falle das ihr mich tadelt weil ich alles falsch mache und sowas...) würd ich später damit weitermachen und erstmal an anderen stellen weitermachen
aber ich woltl mir selbst ein praktisches beispiel für arrays basteln, wo ich auch verstehe weshalb dort fmOpenRead or fmShareDenyWrite steht
nun gut, jetz schonmal danke für antworten
(und bitte nicht zu sehr tadeln xD)
Halbgard
(aso, noch ein frage
alle haben delphi für
win32
is es etwa nich so gut, wenn man delphi.net für windows nimmt??)
(hatte die frage eben überhaupt einen zusammenhang in sich *smilie mit fragezeichen auf dem kopf* ???)