PureBoard

Code: Alles auswählen

Program PCHAR_DEMO;

Uses Crt, Strings;

Var MeineVariable:PChar;
    i, len:LongInt;

Begin
ClrScr;                                        {Bildschirm loeschen}
StrCopy(MeineVariable,'');                     {Initialisierung}
StrCopy(MeineVariable,'Hello World!');         {Hello World nach MeineVar}
len := StrLen(MeineVariable);                  {Laenge ermitteln}
For i := 1 To len Do
Begin
   Write(Char(MeineVariable^));                {MeineVar als POINTER und
   Inc(MeineVariable);                          hochzaehlen in Schleife}
End;
Dec(MeineVariable,len);                        {MeineVar auf erstes Zeichen}
StrDispose(MeineVariable);                     {MeineVar ordnungsg. entsorgen}
Readln;                                        {Warten auf Tastendruck}
End.

Code: Alles auswählen

{$X+}                           {ERWEITERTER SYNTAX!!!}

Program PCHAR_DEMO2_35;

Uses Crt, Strings;

Var P, such_p:PChar; fn, such:String;
    i, k, l:LongInt;
    f:File;

Const MAXZEICHEN = 23500;

Begin
ClrScr;
Writeln('Hallo du! Ja, DU vor dem Bildschirm!');
Writeln('Gib mal den KOMPLETTEN Pfad zu einer TEXTDATEI ein!');
Readln(fn);
{$I-}
Assign(f,fn);
Reset(f,1);
{$I+}
If (IORESULT <> 0) Then
Begin
   Writeln('HEH, die Datei gibts ja garnicht! Jetzt musst du NEUSTARTEN!');
   Readln;
   Halt(1);
End;
Writeln('Ok, und dann ein Wort/Satz..., dass gesucht werden soll!');
Readln(such);
Writeln('Auch OK! Und los gehts...'); Writeln; Writeln;
i := FileSize(f);
If (i > MAXZEICHEN) Then
Begin
   Writeln('Datei zu gross! Jetzt musst du NEUSTARTEN!');
   Readln;
   Halt(2);
End;

GetMem(P,i);
such_p := StrNew(' ');
StrPCopy(such_p,such);

BlockRead(f,P^,i);
Close(f);

If (StrPos(P,such_p) = NIL) Then
   Writeln('Zeichenkette ',such,' kommt in ',fn,' NICHT vor!!!')
Else
    Writeln(such,' kommt in ',fn,' an Adresse ',StrPos(P,such_p)-P,' vor!');
Readln;
FreeMem(P,i);
StrDispose(such_p);
End.