Deutsches Lazarusforum

so habe ich es jetzt verstanden - mir ist eine Erleuchtung gekommen


... und schon funktioniert es - @mse Danke - man(n) muß nur lesen können

schönes WE - bis zur nächsten Herausforderung

mtbf40

Split AInputStr into APieces by r.e. ARegExpr occurencies

sagt mit: zerlege <LOT="ZA149062"> bei <=> mit <\W>

SplitRegExpr
ARegExpr -> \W'
AInputStr -> st[3] (LOT="ZA149062")
APieces -> '='

mtbf40

ist mir schon klar das ich irgend einen Mist übergebe - wie bekomme ich aber ein '=' in eine TStrings ... und wie übergebe ich diese dann??? Genau an diese Stelle hänge rum und drehe mich im Kreis
habe das ja versucht zu konstruieren, ABER immer die 3

ist in dieser Klasse ->TRegExpr
http://regexpstudio.com/TRegExpr/Help/TRegExpr_Interface.html

eine Klammer )
tmp := SplitRegExpr('\W',st[3],'=');

ja er bekommt ein char und erwartet ein TStrings...

ich hatte auch schon mal eine TStrings angelegt - bin aber auch nicht weiter gekommen...

nächstes Hindernis... ich poste nur Hindernisse die ich seit Stunden oder Tagen nicht gelöst bekomme!! die Procedure SplitRegExpr (const ARegExpr, AInputStr : string; APieces : TStrings); von TRegExpr erwartet ja die entsprechenden Parameter wie splittet er mir folgendes: procedure Split (const ...

nein ... das Widget GroupBox hat doch eine Beschriftung (Caption), das will ich im Nachgang ändern - es gibt eine initiale Beschriftung die später geändert werden soll - d.h. es geht hier um ein Widget...

Fehlermeldung: swt_1.pas(67,31) Hint: Value parameter "GrpBox1" is assigned but never used ich habe jetzt folgenden Konstrukt: procedure GetFilesInDirectory(Directory: string; const Mask: string; List: TStrings; GrpBox1: TCaption; ClearList: Boolean); . . . GrpBox1:=Directory + fil...

im unten stehenden Code möchte ich noch das Objekt GroupBox1 mit an die Prozerdur übergeben - der Compiler meckert aber rum!!?? procedure TForm1.Scan_File(Sender: TObject); begin GetFilesInDirectory('T:\MTX\Log', 'log*.txt', ListBox1.Items, <GroupBox1,> False); end; was ich machen mö...

danke für Eure schnelle Hilfe... habe jetzt folgende Änderungen gemacht TForm1 = class(TForm) Button1: TButton; ListBox: TListBox; procedure Button1Click(Sender: TObject); >> procedure GetFilesInDirectory(Directory: string; const Mask: string; List: TStrings; WithSubDirs, ClearLi...

Hallo, ich bin gerade dabei mir Free Pascal -mit Lazarus- anzueignen und stehe schon vor meinem ersten Problem, das ich mit Logik und googeln nicht mehr lösen kann ich bekomme folgende fehlermeldungen beim compilieren: Hint: Start of reading config file C:\programs\lazarus\fpc\2.4.4\bin\i386-win32\f...