1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275: 276: 277: 278: 279: 280: 281: 282: 283: 284: 285: 286: 287: 288: 289: 290: 291: 292: 293: 294: 295: 296: 297: 298: 299: 300: 301: 302: 303: 304: 305: 306: 307: 308: 309: 310: 311: 312: 313: 314: 315: 316: 317: 318: 319: 320: 321: 322: 323: 324: 325: 326: 327: 328: 329: 330: 331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385: 386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415:
| unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, IniFiles, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Grids;
type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; RadioGroup1: TRadioGroup; Edit1: TEdit; Label1: TLabel; StringGrid1: TStringGrid; procedure FormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); private public end;
var Form1: TForm1; Ini: TIniFile; implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin StringGrid1.Cells[0,0]:='Kategorie'; StringGrid1.Cells[1,0]:='Beruf'; StringGrid1.Cells[2,0]:='Betrieb'; StringGrid1.RowCount:=82;
IF FileExists('C:\test.ini') THEN BEGIN END ELSE BEGIN try Ini:=Tinifile.Create('C:\test.ini'); Ini.WriteString('1','Kategorie','Apotheken'); Ini.WriteString('1','Beruf','PTA, Apotheker'); Ini.WriteString('1','Betrieb','Ruppiner Apotheke'); Ini.WriteString('2','Kategorie','Kita'); Ini.WriteString('2','Beruf','Erzieher'); Ini.WriteString('2','Betrieb','Integrations-Kita'); Ini.WriteString('3','Kategorie','Kita'); Ini.WriteString('3','Beruf','Erzieher'); Ini.WriteString('3','Betrieb','Eichhörnchen'); Ini.WriteString('4','Kategorie','Verwaltung'); Ini.WriteString('4','Beruf','Steuerfachangestellte'); Ini.WriteString('4','Betrieb','Steuerbüro Sand'); Ini.WriteString('5','Kategorie','Kita'); Ini.WriteString('5','Beruf','Erzieher'); Ini.WriteString('5','Betrieb','Regenbogen'); Ini.WriteString('6','Kategorie','Verwaltung'); Ini.WriteString('6','Beruf','Bürokauffrau'); Ini.WriteString('6','Betrieb','Büroservice Richter'); Ini.WriteString('7','Kategorie','Gaststätten'); Ini.WriteString('7','Beruf','Hotelfachfrau'); Ini.WriteString('7','Betrieb','Waldfrieden'); Ini.WriteString('8','Kategorie','Handel'); Ini.WriteString('8','Beruf','Einzelhandelskauffrau'); Ini.WriteString('8','Betrieb','City Mode'); Ini.WriteString('9','Kategorie','Arzt'); Ini.WriteString('9','Beruf','Physiotherapeut/in'); Ini.WriteString('9','Betrieb','Physiotherapie Mödebeck'); Ini.WriteString('10','Kategorie','Kita'); Ini.WriteString('10','Beruf','Erzieher'); Ini.WriteString('10','Betrieb','Krankenhaus'); Ini.WriteString('11','Kategorie','Krankenhaus'); Ini.WriteString('11','Beruf','Krankenpflege'); Ini.WriteString('11','Betrieb','Krankenhaus'); Ini.WriteString('12','Kategorie','Sonstiges'); Ini.WriteString('12','Beruf','Metereloge'); Ini.WriteString('12','Betrieb','Wetterwache'); Ini.WriteString('13','Kategorie','Verwaltung'); Ini.WriteString('13','Beruf','Bürokauffrau'); Ini.WriteString('13','Betrieb','Treskower Innenausbau'); Ini.WriteString('14','Kategorie','Bau und Handwerk'); Ini.WriteString('14','Beruf','Trockenbauer'); Ini.WriteString('14','Betrieb','Integrations-Kita'); Ini.WriteString('15','Kategorie','Kfz'); Ini.WriteString('15','Beruf','Kfz-Mechatroniker'); Ini.WriteString('15','Betrieb','Autozentrum Treskow'); Ini.WriteString('16','Kategorie','Kfz'); Ini.WriteString('16','Beruf','Kfz-Mechatroniker'); Ini.WriteString('16','Betrieb','Autohaus Füllgraf'); Ini.WriteString('17','Kategorie','Sonstiges'); Ini.WriteString('17','Beruf','Kommunikationselektroniker'); Ini.WriteString('17','Betrieb','Telekom'); Ini.WriteString('18','Kategorie','Gaststätten'); Ini.WriteString('18','Beruf','Hotelfachfrau'); Ini.WriteString('18','Betrieb','Seeperle'); Ini.WriteString('19','Kategorie','Kita'); Ini.WriteString('19','Beruf','Erzieher'); Ini.WriteString('19','Betrieb','Storchennest'); Ini.WriteString('20','Kategorie','Handel'); Ini.WriteString('20','Beruf','Buchhändler'); Ini.WriteString('20','Betrieb','Fontanebuchhandlung'); Ini.WriteString('21','Kategorie','Kfz'); Ini.WriteString('21','Beruf','Kfz-Mechatriniker'); Ini.WriteString('21','Betrieb','Kfz-Server Spaniel'); Ini.WriteString('22','Kategorie','Sonstiges'); Ini.WriteString('22','Beruf','Kosmetikerin'); Ini.WriteString('22','Betrieb','Kosmetik Teufert'); Ini.WriteString('23','Kategorie','Kita'); Ini.WriteString('23','Beruf','Erzieher'); Ini.WriteString('23','Betrieb','Hort Kleeblatt'); Ini.WriteString('24','Kategorie','Sonstiges'); Ini.WriteString('24','Beruf','Kosmetikerin'); Ini.WriteString('24','Betrieb','Schönheitstempel'); Ini.WriteString('25','Kategorie','Verwaltung'); Ini.WriteString('25','Beruf','Sozialversicherungsfachmann'); Ini.WriteString('25','Betrieb','Landesversicherungsanstalt'); Ini.WriteString('26','Kategorie','Produktion'); Ini.WriteString('26','Beruf','versch. Tätigkeiten'); Ini.WriteString('26','Betrieb','Otto Kunststoffv.'); Ini.WriteString('27','Kategorie','Tierarzt'); Ini.WriteString('27','Beruf','Tierarzt/helfer'); Ini.WriteString('27','Betrieb','TA Riege'); Ini.WriteString('28','Kategorie','Handel'); Ini.WriteString('28','Beruf','Einzelhandelskaufmenn'); Ini.WriteString('28','Betrieb','Zweck Autoteile'); Ini.WriteString('29','Kategorie','Kita'); Ini.WriteString('29','Beruf','Erzieher'); Ini.WriteString('29','Betrieb','Ev. Kita'); Ini.WriteString('30','Kategorie','CAD'); Ini.WriteString('30','Beruf','Bau-Ing./Bauzeichner'); Ini.WriteString('30','Betrieb','UNS HUESING'); Ini.WriteString('31','Kategorie','Altenpflege'); Ini.WriteString('31','Beruf','Altenpfleger'); Ini.WriteString('31','Betrieb','Sozialstation'); Ini.WriteString('32','Kategorie','Rechtsanwälte'); Ini.WriteString('32','Beruf','Rechtsanwaltfachangestellte'); Ini.WriteString('32','Betrieb','RA Böhm'); Ini.WriteString('33','Kategorie','Produktion'); Ini.WriteString('33','Beruf','Metallbauer'); Ini.WriteString('33','Betrieb','Automationssysteme'); Ini.WriteString('34','Kategorie','Sonstiges'); Ini.WriteString('34','Beruf','versch. Berufe'); Ini.WriteString('34','Betrieb','Stadtwerke'); Ini.WriteString('35','Kategorie','Rechtsanwälte'); Ini.WriteString('35','Beruf','Rechtsanwaltfachangestellte'); Ini.WriteString('35','Betrieb','Schmidt-Hagnius'); Ini.WriteString('36','Kategorie','Bau und Handwerk'); Ini.WriteString('36','Beruf','Tischler'); Ini.WriteString('36','Betrieb','Tischlerei Kremp'); Ini.WriteString('37','Kategorie','Sonstiges'); Ini.WriteString('37','Beruf','Werbedesigner'); Ini.WriteString('37','Betrieb','Lübke Druck & Design'); Ini.WriteString('38','Kategorie','Gaststätten'); Ini.WriteString('38','Beruf','Hotelfachmann/-frau'); Ini.WriteString('38','Betrieb','Hotel am See'); Ini.WriteString('39','Kategorie','Rechtsanwälte'); Ini.WriteString('39','Beruf','Rechtsanwaltfachangestellte'); Ini.WriteString('39','Betrieb','RA Klein'); Ini.WriteString('40','Kategorie','Kfz'); Ini.WriteString('40','Beruf','Kfz-Mechatroniker'); Ini.WriteString('40','Betrieb','Autohaus Schmidt'); Ini.WriteString('41','Kategorie','Sonstiges'); Ini.WriteString('41','Beruf','Augenoptiker'); Ini.WriteString('41','Betrieb','Giesa Optik'); Ini.WriteString('42','Kategorie','Gaststätten'); Ini.WriteString('42','Beruf','Koch/Restaurantfachfrau'); Ini.WriteString('42','Betrieb','Schlemmertempel'); Ini.WriteString('43','Kategorie','CAD'); Ini.WriteString('43','Beruf','Fachinformatiker'); Ini.WriteString('43','Betrieb','CAS Wolff'); Ini.WriteString('44','Kategorie','Kita'); Ini.WriteString('44','Beruf','Erzieher'); Ini.WriteString('44','Betrieb','Gänseblümchen'); Ini.WriteString('32','Kategorie','Sonstiges'); Ini.WriteString('32','Beruf','Journalist'); Ini.WriteString('32','Betrieb','Ruppiner Anzeiger'); Ini.WriteString('46','Kategorie','Justiz'); Ini.WriteString('46','Beruf','Rechtspfleger'); Ini.WriteString('46','Betrieb','Sozialgericht'); Ini.WriteString('47','Kategorie','Apotheken'); Ini.WriteString('47','Beruf','Apotheker/PTA'); Ini.WriteString('47','Betrieb','Neue Apotheke'); Ini.WriteString('48','Kategorie','Kita'); Ini.WriteString('48','Beruf','Erzieher'); Ini.WriteString('48','Betrieb','Hort Gildenhall'); Ini.WriteString('49','Kategorie','CAD'); Ini.WriteString('49','Beruf','Fachinformatiker'); Ini.WriteString('49','Betrieb','T&T Elektronik'); Ini.WriteString('50','Kategorie','CAD'); Ini.WriteString('50','Beruf','Bau-Ing/Zeichner'); Ini.WriteString('50','Betrieb','Rupp.Ingenieurgesellschaft'); Ini.WriteString('51','Kategorie','Rechtsanwälte'); Ini.WriteString('51','Beruf','Rechtsanwaltfachangestellte'); Ini.WriteString('51','Betrieb','RA Wittstock'); Ini.WriteString('52','Kategorie','Justiz'); Ini.WriteString('52','Beruf','Rechtspfleger'); Ini.WriteString('52','Betrieb','Landgericht'); Ini.WriteString('53','Kategorie','Justiz'); Ini.WriteString('53','Beruf','Rechtspfleger'); Ini.WriteString('53','Betrieb','Staatsanwaltschaft'); Ini.WriteString('54','Kategorie','Kita'); Ini.WriteString('54','Beruf','Erzieher'); Ini.WriteString('54','Betrieb','Kunterbunt'); Ini.WriteString('55','Kategorie','Gaststätten'); Ini.WriteString('55','Beruf','Koch/Restaurantfachmann'); Ini.WriteString('55','Betrieb','Tempelgarten'); Ini.WriteString('56','Kategorie','Handel'); Ini.WriteString('56','Beruf','Großhandelskaufmann'); Ini.WriteString('56','Betrieb','Baufachzentrum'); Ini.WriteString('57','Kategorie','Arztpraxen'); Ini.WriteString('57','Beruf','Arzthelferin/MTA'); Ini.WriteString('57','Betrieb','Oberbuchner'); Ini.WriteString('58','Kategorie','Bau und Handwerk'); Ini.WriteString('58','Beruf','Hochbau'); Ini.WriteString('58','Betrieb','Bauring'); Ini.WriteString('59','Kategorie','Sonstiges'); Ini.WriteString('59','Beruf','Augenoptiker'); Ini.WriteString('59','Betrieb','Optiker Giese'); Ini.WriteString('60','Kategorie','Bau und Handwerk'); Ini.WriteString('60','Beruf','Karosseriebauer'); Ini.WriteString('60','Betrieb','Karosseriebau Hinze'); Ini.WriteString('61','Kategorie','Sonstiges'); Ini.WriteString('61','Beruf','Journalist'); Ini.WriteString('61','Betrieb','Märkische Allgemeine'); Ini.WriteString('62','Kategorie','Gaststätten'); Ini.WriteString('62','Beruf','Hotelfachmann'); Ini.WriteString('62','Betrieb','Uphus'); Ini.WriteString('63','Kategorie','Altenpflege'); Ini.WriteString('63','Beruf','Altenpflege'); Ini.WriteString('63','Betrieb','Seniorenwohnpark'); Ini.WriteString('64','Kategorie','Verwaltung'); Ini.WriteString('64','Beruf','Verwaltungsfachangestellte'); Ini.WriteString('64','Betrieb','Stadtverwaltung'); Ini.WriteString('65','Kategorie','Verwaltung'); Ini.WriteString('65','Beruf','Verwaltungsfachangestellte'); Ini.WriteString('65','Betrieb','Landkreis'); Ini.WriteString('66','Kategorie','Sonstiges'); Ini.WriteString('66','Beruf','Vermessungstechniker'); Ini.WriteString('66','Betrieb','Vermessungsbüro Daugs'); Ini.WriteString('67','Kategorie','Apotheken'); Ini.WriteString('67','Beruf','Pharmazeutisch-Kaufmännische Ang.'); Ini.WriteString('67','Betrieb','Sonnenapotheke'); Ini.WriteString('68','Kategorie','Arztpraxen'); Ini.WriteString('68','Beruf','Physiotherapeut'); Ini.WriteString('68','Betrieb','Physiotherapie Bunke/Schulz'); Ini.WriteString('69','Kategorie','Arztpraxen'); Ini.WriteString('69','Beruf','Physiotherapeut'); Ini.WriteString('69','Betrieb','Physiotherapie Peetz'); Ini.WriteString('70','Kategorie','Arztpraxen'); Ini.WriteString('70','Beruf','Physiotherapeut'); Ini.WriteString('70','Betrieb','Physiotherapie Niwa'); Ini.WriteString('71','Kategorie','Bau und Handwerk'); Ini.WriteString('71','Beruf','Hochbau'); Ini.WriteString('71','Betrieb','Konzept-Bau'); Ini.WriteString('72','Kategorie','Produktion'); Ini.WriteString('72','Beruf','Metallbau'); Ini.WriteString('72','Betrieb','TES Frontdesign'); Ini.WriteString('73','Kategorie','Kfz'); Ini.WriteString('73','Beruf','Kfz-Mechatroniker'); Ini.WriteString('73','Betrieb','SEAT-Autohaus'); Ini.WriteString('74','Kategorie','Sonstiges'); Ini.WriteString('74','Beruf','Kommunikationselektroniker'); Ini.WriteString('74','Betrieb','SITEC-Meldetechnik'); Ini.WriteString('75','Kategorie','Handel'); Ini.WriteString('75','Beruf','Floristin'); Ini.WriteString('75','Betrieb','Blumenzeit Schultze'); Ini.WriteString('76','Kategorie','Apotheken'); Ini.WriteString('76','Beruf','PTA, PKA'); Ini.WriteString('76','Betrieb','Paulinenapotheke'); Ini.WriteString('77','Kategorie','Kfz'); Ini.WriteString('77','Beruf','Kfz-Mechatroniker'); Ini.WriteString('77','Betrieb','Autohaus Süd'); Ini.WriteString('78','Kategorie','CAD'); Ini.WriteString('78','Beruf','Bauzeichner, Bau-Ing'); Ini.WriteString('78','Betrieb','Architekten und beratende Ing...'); Ini.WriteString('79','Kategorie','Sonstiges'); Ini.WriteString('79','Beruf','Augenoptiker'); Ini.WriteString('79','Betrieb','Fielmann'); Ini.WriteString('80','Kategorie','Produktion'); Ini.WriteString('80','Beruf','-'); Ini.WriteString('80','Betrieb','SH-electronics'); Ini.WriteString('81','Kategorie','Kfz'); Ini.WriteString('81','Beruf','Kfz-Mechatroniker'); Ini.WriteString('81','Betrieb','MAN-Werkstatt'); Ini.WriteString('82','Kategorie','Arztpraxen'); Ini.WriteString('82','Beruf','Physiotherapeut'); Ini.WriteString('82','Betrieb','Physiotherapie Burghardt & Müller'); finally ini.free; end; END; end;
procedure TForm1.Edit1Change(Sender: TObject); var wortteil,kategorie:string; i,j,zaehler:integer; vorhanden: ARRAY [1..82] of Bool; abgefertigt: ARRAY begin zaehler:=0; wortteil:=edit1.text; FOR i:=1 TO 82 DO BEGIN kategorie:=ini.ReadString(INTTOSTR(i),'Kategorie','bla'); j:=Pos(wortteil,kategorie); IF j<>0 THEN BEGIN vorhanden[i]:=TRUE; zaehler:=zaehler+1; END ELSE BEGIN vorhanden[i]:=FALSE; END; END; StringGrid1.RowCount:=zaehler; i:=0; FOR i:=1 TO zaehler DO BEGIN StringGrid1.Cells[i,1]:= END;
end; end. |