AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

File compare

Ein Thema von value is NULL · begonnen am 24. Mai 2011 · letzter Beitrag vom 24. Mai 2011
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    
value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#21

AW: File compare

  Alt 24. Mai 2011, 14:42
was passiert aber wenn mehrere lines nicht gleich sind.. result ist doch immer nur 1 Wert?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#22

AW: File compare

  Alt 24. Mai 2011, 14:45
Klar, die erste unterschiedliche Zeile. Ansonsten musst Du es halt so umbauen/erweitern, dass eine Liste hinten rauskommt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#23

AW: File compare

  Alt 24. Mai 2011, 15:09
hm habe folgende function:

Delphi-Quellcode:
function FilesEqual(const First, Second: TFilename; out DiffLine: integer): Boolean;
var
  s1, s2: TStringlist;
  i: integer;
begin
  Result := FileExists(First) and FileExists(Second);
  if Result then
    begin
      s1 := TStringlist.Create;
      try
        s1.LoadFromFile(First);
        s2 := TStringlist.Create;
        try
          s2.LoadFromFile(Second);
          i := 0;
              while (i < s1.Count) and (i < s2.Count) do
              begin
                Result := s1[i] = s2[i];
                if not Result then
                  begin
                    DiffLine := i;
                    i := s1.Count;
                    s3.Add(s1[i]);
                  end;
                  inc(i);
                end;
        finally
          s2.Free;
        end;
      finally
        s1.Free;
      end;
    end;
end;
und rufe das auf:

Delphi-Quellcode:
    test_functions.FilesEqual('C:\software.txt','C:\software2.txt',i);
    i2 := 0;
    for i2 := 0 to vlxsysstate_functions.s3.Count -1 do
        Writeln(s3[i2]);
    test_functions.s3.Free;
bekomme aber permanent folgendes:

EStringListError: Listenindex ³berschreitet das Maximum (166)

was ist da falsch?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#24

AW: File compare

  Alt 24. Mai 2011, 15:14
Wo kommt denn das s3 in der Funktion jetzt her?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#25

AW: File compare

  Alt 24. Mai 2011, 15:17
und in welcher Zeile tritt der Fehler auf?

Gruß
K-H

und das ist doch nicht Dein Ernst oder?
Delphi-Quellcode:
begin
                    DiffLine := i;
                    i := s1.Count;
                    s3.Add(s1[i]);
                  end;
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 (24. Mai 2011 um 15:19 Uhr)
  Mit Zitat antworten Zitat
value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#26

AW: File compare

  Alt 24. Mai 2011, 15:21
s3 ist in meiner test_functions unit deklariert

welche zeile kann ich leider nicht sagen da er sich beim debug bei folgendem aufruf:

test_functions.FilesEqual('C:\software.txt','C:\software2.txt',i); verabschiedet...

Wieso was ist daran so schlimm?

LG
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#27

AW: File compare

  Alt 24. Mai 2011, 15:25
Ich habe das ungute Gefühl, dass Du nicht genau weißt, was Du da tust.

[edit] i steht auf Anzahl der Listenelemente, anschließend willst Du diesen nicht existenten Eintrag dann an s3 anhängen. Wie soll das funktionieren? [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#28

AW: File compare

  Alt 24. Mai 2011, 15:25
Zum einen, empfehle ich das Debuggen mit Hilfe von [F7], zum anderen ist
Delphi-Quellcode:
i:=s1.count;
s3.add(s1[i]);
tödlich.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#29

AW: File compare

  Alt 24. Mai 2011, 15:27
Und übergib s3 als Parameter, das ist ja gruselig so.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#30

AW: File compare

  Alt 24. Mai 2011, 15:28
Und übergib s3 als Parameter, das ist ja gruselig so.
Testen ist auch ohne so etwas gruselig

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz