Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
na dadurch:
1..81 = 81 Felder in einer Richtung
und dann nochmal 2 Felder im Record
entspricht 81*2
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
und dein Array of Record hat 2 Spalten * 81 Zeilen (oder auch andersrum)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
einen String kannst du nicht so direkt in eine Zahl umwandeln, wenn dann könntest du höchstens das 1. Zeichen im String also so verarbeiten
Stringrid1.Cells:=chr(ord(Stringgrid1.cells)-16);
aber das hat ja jetzt nichts mit dem Array-Datei-Problem dieses Threads zu tun
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
tja, das mußt du schon selber machen
z.B: dein hilf-Array durchgehn, umwandeln und die Ergebnisse an irgendwas übergeben ...
for i := 1 to 81 do begin
StringGrid1.Cells := IntToStr(hilf.a);
StringGrid1.Cells := BoolToStr(hilf.b);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
// Reset - zum lesen öffnen
// Rewrite - zum schreiben öffnen
// Append - zum lesen/schreiben öffnen und cursor ans Dateiende
// aus system.pas:
function _ResetText(var t: TTextRec): Integer;
begin
Result := OpenText(t, fmInput);
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
17. Mai 2009
erstmal mußt du die Datei zum Schreiben auch mit Schreibzugriff öffnen.
procedure TForm1.Button1Click(Sender: TObject)
var hilf:Tf; x,y:integer ;
begin
rewrite(sp);
und hilf ist ein Array of Record und Cells ist ein String
StringGrid1.Cells := hilf;
da mußt du also hilf einzeln durchgehn und die Integer/Boolean auch noch in einen String umwandeln :zwinker: