AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Zitat:
|
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Zitat:
Fehlermeldungen enthalten meistens einen Hinweis auf das gefundene Problem, Fehlermeldungen die nur eine Pfadangabe enthalten sind doch recht selten. (vielleich "File not found?") Gruß K-H |
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Also, wie wäre es damit:
Die momentanen Informationen reichen nicht aus, um irgendwie hilfreich aggieren zu können. |
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Ich habe noch etwas geändert und es kommt keine Fehlermeldung mehr, aber es passiert auch nichts, außer das alles gelöscht wird aus der Ursprungsdatei.
Delphi-Quellcode:
unit Unit5;
interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Inifiles, Vcl.RibbonLunaStyleActnCtrls, Vcl.Ribbon; type TForm5 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); function Löschen(text:string;alt:string): string; private { Private-Deklarationen } public { Public-Deklarationen } end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.Button1Click(Sender: TObject); var sl:tstringlist; MyInifile: TInifile; sFile,a,test:string; i:integer; begin MyIniFile:= TInifile.Create('C:\Users\Praktikant\Desktop\Phillip Beermann, Praktikant\`Rechnung´\MyConfig.ini'); sFile:= MyIniFile.ReadString('Verzeichnis','Quelle','Irgendetwas ist falsch!'); sl:=tstringlist.Create; sl.LoadFromFile(sfile); for i:= 0 to sl.Count -1 do begin sl.Text:=Löschen(sl.Text,'\A+'); sl.Text:=Löschen(sl.Text,'\A-'); sl.Text:=Löschen(sl.Text,'\S+'); sl.Text:=Löschen(sl.Text,'\S-'); sl.Text:=Löschen(sl.Text,'\U+'); sl.Text:=Löschen(sl.Text,'\U-'); end; a:=MyIniFile.ReadString('Verzeichnis','Ziel',''); sl.SaveToFile(sfile); MyIniFile.Free; sl.Free; end; function TForm5.Löschen(text:string;alt:string): string; var b,a :integer; begin while b>0 do begin b:=Pos(alt,text); a:=length(alt); text:=copy(text,b,a); Delete(text,b,a); b:=Pos(alt,text); end; result := Text; end; end. |
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Naja, das Programm macht halt genau das, was Du programmiert hast. Also vornehmlich nichts.
Warum ignorierst Du alle Ratschläge? Hast Du verstanden, was nahpets z.B. in http://www.delphipraxis.net/1329108-post9.html anmerkte? |
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Nagut, ich versuch's nochmal mit folgenden Annahmen:
text sei: *\A+* alt sei: \A+ erwartetes Ergebnis: **
Delphi-Quellcode:
function TForm5.Löschen(text:string;alt:string): string;
var b,a :integer; begin // Welchen Wert hat hier eigentlich b? Größer als 0? while b > 0 do begin b := Pos(alt,text); // Position von \A+ in *\A+* ist 2 a := length(alt); // Länge von \A+ ist 3 text := copy(text,b,a); // -> Copy('*\A+*',2,3) ergibt \A+ Delete(text,b,a); // Delete('\A+',2,3) ergibt \ b := Pos(alt,text); // Pos('\A+','\') ergibt 0 end; result := Text; // Rückgabewert = \, wenn b am Anfang zufällig > 0 war, sonst wird Text zurückgegeben. end; |
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Schön finde ich auch, dass hier augenscheinlich sämtliche Compiler-Hinweise ganz konsequent ignoriert werden. Die Delphi-Praxis wird's schon richten...
|
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Zitat:
Zitat:
|
AW: Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren
Zitat:
Code:
Und der Compiler hat mit dieser Aussage absolut recht.
[Warnung] Unit1.pas(5756): Variable 'b' ist möglicherweise nicht initialisiert worden
Zitat:
Mir ist Delphi noch nie wegen Fehlermeldungen abgestürzt, aber ich habe schon häufiger wegen zu vieler Fehlermeldungen den Durchblick verloren. Oder meinst Du mit mein Delphi- Programm das von Dir erstellte Programm? Wenn ja, welche Fehler hat es denn ausgegeben, bevor es abgestürzt ist? (Die Fehlermeldungen, die gewöhnlich in einer Messagebox ausgegeben werden, kann man in der Messagebox mit Strg+C in die Zwischenablage kopieren und hier einfügen!) Deine Funktion Löschen habe ich kommentiert und dort (hoffentlich vermutlich halbwegs) verständlich rangeschrieben, warum das so nicht funktionieren kann. Hast Du davon irgendwas berücksichtigt? Wenn ja was? Welche Fehlermeldungen des Compilers resultierten daraus? Wie sieht Dein aktueller Quelltext der Funktion jetzt aus? Eventuell könnte es hilfreich sein, wenn Du uns mal ein Muster der Dateien als Anhang zur Verfügung stellen könntest, dann könnten wir auch mal mit realen Dateiinhalten versuchen herauszufinden, wo es denn da sonst noch so klemmen könnte. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:42 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