Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Treffnix,
7. Apr 2005
If a > 0 Then
lst.Add( copy(s, 1, a-1) );
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Treffnix,
7. Apr 2005
siehe oben ( ungetestet )
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Treffnix,
7. Apr 2005
Weil du nur in der ersten Zeile nach nem String suchst, den es da evtl. gar nicht gibt und anschliessend das Memo mit dem Ergebnis (LeerString) überschreibst, was dazu führt, dass du gar nicht weitersuchen kannst.
procedure TForm1.Button1Click(Sender: TObject);
var a, i: integer;
s: string;
lst: TStringList;
begin
lst := TStringList.Create;
for i := 0 to Memo1.Lines.Count -1...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Treffnix,
7. Apr 2005
da gibts nichts auszukennen. ist genau wie pos mit dem Unterschied, dass pos immer den ersten Treffer sucht und posex den ersten Treffer ab Offset.
Nach wie vor bleibt die Frage: Woher kommt die 11?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Treffnix,
7. Apr 2005
Warum eigentlich + 11?
Wenn du posex benutzt, kannst du ne Startposition angeben ab der gesucht werden soll und dir so die Löscherei ganz sparen.