[gelöst] Lazarus: StringGrid drucken

[BadenPower]

Zitat:

Zitat von Kralle (Beitrag 1290403)

So, jetzt habe ich den anderen Code eingebunden und bei dem kennt Lazarus

Delphi-Quellcode:

GetDeviceCaps

nicht.

Du musst die "Windows" in die Uses-klausel aufnehmen.

[DeddyH]

Bei BeginDoc kommt eine Exception, weil sich der Status auf Drucken ändert? Das kann ich kaum glauben. Natürlich ist auch Lazarus nicht fehlerfrei (genau wie Delphi), aber das wäre schon ein dicker Hund.

[Kralle]

Moin,

Zitat:

Zitat von DeddyH (Beitrag 1290404)

Die Unit Windows (oder wie die auch sonst heißen mag) ist eingebunden?

Ähh, Nein. Wenn ich die einbinde, dann knallt es in der Suchroutine. :evil:

Gruß Heiko

[DeddyH]

Was denn für eine Suchroutine? Ich kann Dir nicht folgen.

[Kralle]

Moin,

Zitat:

Zitat von BadenPower (Beitrag 1290406)

Du musst die "Windows" in die Uses-klausel aufnehmen.

Dann meint Lazarus

Zitat:

unit1.pas(183,24) Error: Incompatible type for arg no. 1: Got "TSearchRec", expected "LongWord"

Und zwar hier :

Delphi-Quellcode:

  FindClose (FindRecord);

[DeddyH]

Ah, sag das doch gleich. Qualifizier das mal mit

Delphi-Quellcode:

SysUtils.FindClose(FindRecord);

[edit] Oder Windows vor SysUtils einbinden, sollte auch funktionieren. [/edit]

[Kralle]

Moin,

Zitat:

Zitat von DeddyH (Beitrag 1290410)

Was denn für eine Suchroutine? Ich kann Dir nicht folgen.

Delphi-Quellcode:

Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings);
Var
  FindRecord: tSearchRec;
  tempstr: String;
Begin
     //
     Form1.StatusBar1.SimpleText:='Starte die Suche ...';

     //
     // Quelle: http://www.entwickler-ecke.de/topic_nach+Dateien+suchen_1107,0.html
     //
     // Wenn die Stringliste nil ist oder aPath oder aFind nicht angegeben ist
  // dann raus
  If (aPath = '') or (aFindMask = '') or Not Assigned (aResult) Then
    Exit;

  // Wenn am Ende der Pfadangabe noch kein \ steht, dieses hinzufügen
  // (Oder die Funktion  IncludeTrailingPathDelimiter aus der Unit SysUtils.pas verwenden)
  If aPath[Length (aPath)] <> '\' Then
    aPath := aPath + '\';

  // Im aktuellen Verzeichnis nach der Datei suchen
  If FindFirst (aPath + aFindMask, faAnyFile, FindRecord) = 0 Then
    Repeat
      begin

         If (FindRecord.Name <> '.') and (FindRecord.Name <> '..') Then

        // ...Ergebnis in die Stringlist einfügen
        // Gesammter Zugriffspfad incl. Dateiname und Extention darf nicht länger als 160 Zeichen sein
        if  length(aPath + FindRecord.Name) > 160 then
          Begin
               tempstr:= aPath + ','+ FindRecord.Name +',Zugriffpfad zu lang! Länge: '+InttoStr(length(aPath + FindRecord.Name))+' (max. 160)';
               aResult.Add (tempstr);
          end;
       // Probleme bei der erneuten Archivierung
      if  length(aPath + FindRecord.Name)+40 > 160 then
        Begin
             tempstr:= aPath + ','+ FindRecord.Name +',Erneute Archivierung nicht möglich!';
             aResult.Add (tempstr);
        end;

      // Der Dateiname darf nicht länger als 32 Zeichen sein
          if  length(FindRecord.Name) > 32 then
          Begin
               tempstr:= aPath + ','+ FindRecord.Name +',Projektname zulang! Länge: '+InttoStr(length(FindRecord.Name))+' (max. 32)';
               aResult.Add (tempstr); //(aPath + FindRecord.Name);
          end;
          // Der Pfad darf nicht länger als 128 Zeichen sein
          if  length(aPath) > 128 then
          Begin
               tempstr:= aPath + ','+ FindRecord.Name +',Projektpfad zulang! Länge: '+InttoStr(length(aPath))+' (max. 128)';
               aResult.Add (tempstr); //(aPath + FindRecord.Name);
          end;
          // Es dürfen nur bestimmte Zeichen im Dateinamen sein
          if HatStringSonderzeichen(KillExt(FindRecord.Name)) then
          Begin
               tempstr:= FindRecord.Name +',Sonderzeichen im Projektnamen!!!';
               aResult.Add (aPath+','+tempstr); //(aPath + FindRecord.Name);
          end;
      Form1.StatusBar1.SimpleText:='Suche ...';
      Form1.StatusBar1.Refresh;

         end;

      Until FindNext (FindRecord) <> 0;

  FindClose (FindRecord);

  // Wenn nicht in Unterverzeichnissen gesucht werden soll dann raus
  If Not aWithSub Then
    Exit;

  // In Unterverzeichnissen weiter suchen
  If FindFirst (aPath + '*.*', faAnyFile, FindRecord) = 0 Then
    Repeat
      If (FindRecord.Name <> '.') and (FindRecord.Name <> '..') Then
        // Feststellen, ob es sich um ein Verzeichnis handelt
        If Boolean (FindRecord.Attr and faDirectory) Then
          // Funktion erneut aufrufen, um Verzeichnis zu durchsuchen (Rekursion)
          FindFiles (aPath + FindRecord.Name, aFindMask, aWithSub, aResult);
    Until FindNext (FindRecord) <> 0;

   FindClose (FindRecord);
        Form1.StatusBar1.SimpleText:='Die Suche ist Beendet';
End;

Gruß Heiko

[DeddyH]

Siehe meine letzte Antwort, da haben sich die Posts überschnitten.

[Kralle]

Moin,

Zitat:

Zitat von DeddyH (Beitrag 1290413)

Ah, sag das doch gleich. Qualifizier das mal mit

Delphi-Quellcode:

SysUtils.FindClose(FindRecord);

[edit] Oder Windows vor SysUtils einbinden, sollte auch funktionieren. [/edit]

Habe ich gemacht. Jetzt hängt es wieder beim Drucken:

Delphi-Quellcode:

   TR := Rect(X1,

Zitat:

unit1.pas(252,18) Fatal: Syntax error, ")" expected but "," found

[DeddyH]

Die Rect-Funktion steht IIRC in Types.pas, also wieder voll qualifizieren: Types.Rect.