T-Memo Problem

[delphi_newbie_123]

warum geht das dann?
Copy(temp, Pos('"', temp)+1, pos(' "', temp)-pos('"', temp)-1);

[alcaeus]

Nehmen wir diesen String:

Code:

Wort"Noch eins "

In diesem Fall funktioniert der Code, da die Position von ' "' sicher größer ist als jene von '"'.
Bei diesem String

Code:

Wort "Noch eins"

wird relativ wenig rauskommen ;)

Greetz
alcaeus

[glkgereon]

obwohl es streng genommen falsch ist!

es müsste

Zitat:

Wort"Noch zwei "

bzw

Zitat:

Wort "Noch zwei"

heissen :mrgreen:

[delphi_newbie_123]

also hi nochmal ;)
nach ein bisschen überlegung bin ich zu der lösung gekommen

Delphi-Quellcode:

          zeile := Memo1.Lines[num_lines_new];
          befehl := Copy(zeile, Pos('"',zeile)+1,length(zeile));
          befehl := Copy(befehl, 1,Pos('"',befehl)-1);

edit: geht ;)

[glkgereon]

was soll der code?
inb dem string sollte der anfang des strings bis zum anfang des befehls drin sein...

ich würds so machen:

Delphi-Quellcode:

AktZeile:= Memo1.Lines[xyz];
AktZeile:= copy(AktZeile,Pos(AktZeile,'"'),length(AktZeile)-Pos(AktZeile,'"'));
AkzZeile:= copy(AktZeile,1,Pos(AktZeile,'"'));

(keine 100%ige garantie)

nun steht in AktZeile der Befehl drin

die funztionsweise an einem beispiel:

String Holen
AktZeile:='ashd"abcde"lksdfl';

Vorderen Teil inc. " wegschneiden
AktZeile:='abcde"lksdfl';

Hinteren Teil inc. " wegschneiden
AktZeile:='abcde';