Advertentie | |
|
25-01-2007, 16:08 | ||
Citaat:
Code:
var inhoud : array[1..4] of array of [1..4] of integer; Verder heb ik eens geprobeerd om die file in te laden als file of integer in plaats van textfile (file of string), maar dat gaf geen goede resultaten (daarmee had je anders gewoon read(file,x) en dan die x in je array steken voor alle waarden zonder stringmanipulaties, maar volgens mij kan die enkel werken met binaire bestanden en die van jou is een tekstbestand met getallen in tekstvorm en geen binaire getallen). Probeer ook je code wat leesbaarder te maken: indentatie en deftige namen voor je variabelen. Als je later met grotere projecten zal werken, zal je het nut daarvan in ieder geval inzien. Hieronder de onvolledige code van mezelf; Code:
procedure TForm1.FormCreate(Sender: TObject); var cntR, cntC : integer; numfile : textfile; tempE , tempR : string; const filename = 'nrs.txt'; begin if FileExists(filename) then try AssignFile(numfile,filename); Reset(numfile); for cntR:= 1 to 4 do begin ReadLn(numfile,tempR); for cntC := 1 to 4 do begin if cntC < 4 then begin tempE:=copy(tempR,0,4); delete(tempR,0,4); end else begin tempE:=tempR; end; tempE:=trim(tempE); inhoud[cntR,cntC] := StrToIntDef(tempE,0); end; end; finally Closefile(numfile); end; Memo1.Lines.LoadFromFile(filename); Memo1.Lines.Add(''); for cntR := 1 to 4 do begin tempR := ''; for cntC := 1 to 4 do begin tempR:= tempR + IntToStr(inhoud[cntC,cntR]); if cntC < 4 then tempR:= tempR + ' '; end; Memo1.Lines.Add(tempR); end; end; Waarschijnlijk kun je wel voortbouwen op deze code (let er ook vooral op hoe meer leesbaar dit alles is door indentatie, bij jouw code heb je syntax highlighting nodig om er iets meer in te zien). maar je mag met indentatie doen wat je wilt, zo lang je een beetje consistent blijft en je zelf makkelijk je weg vindt in de code; maar het is volgens mij een van de vereisten om goed leesbare code te maken :-)
__________________
vaknar staden långsamt och jag är full igen (Kent - Columbus)
|
Advertentie |
|
|
|