Registriert seit: 13. Apr 2015
Ort: Aus dem Erzgebrige
3 Beiträge
Delphi 7 Enterprise
|
AW: Speichern in ein StringGrid mal anders
13. Apr 2015, 12:26
P.S.: Ach ja .. ganz vergessen, hier mein Code den ich zum Laden nehme:
Code:
procedure TPlan.Einlesen;
var zeile : string;
tf: TextFile; tag, i, j: Integer;
begin
//Tageszähler
tag := 0;
j := 0; //für Wochentagsspalte
//Lade Daten für Tabellen
if R911.Checked=true then
assignfile(tf,'Zimmer\911.txt');
if R914.Checked=true then
assignfile(tf,'Zimmer\914.txt');
if R511.Checked=true then
assignfile(tf,'Zimmer\511.txt');
if R512.Checked=true then
assignfile(tf,'Zimmer\512.txt');
reset(tf);
while not EOF(tf) do begin
readln(tf,zeile);
//‹berpr¸fen, ob neuer Tag beginnt
if zeile[1] = '#' then begin
i := 1;
j := j + 1;
tag := tag + 1;
delete(zeile,1,1);
//wenn kein neuer Tag, dann Daten in StringGrid ¸bernehmen
end else begin
//Montag
if tag = 1 then begin
//Belegt oder frei
SGP.Cells[j,i] := zeile;
end;
//Dienstag
if tag = 2 then begin
//Belegt oder frei
SGP.Cells[j,i] := (zeile);
end;
//Mittwoch
if tag = 3 then begin
//Belegt oder frei
SGP.Cells[j,i] := (zeile);
end;
//Donnerstag
if tag = 4 then begin
//Belegt oder frei
SGP.Cells[j,i] := zeile;
end;
//Freitag
if tag = 5 then begin
//Belegt oder frei
SGP.Cells[j,i] := zeile;
end;
//Zeile erhˆhen
i := i + 1;
SGP.RowCount := i;
end;
end;
closeFile(tf);
end;
|
|
Zitat
|