T-Memo Problem

[delphi_newbie_123]

hi, sorry ich weiss, dass meine frage nicht kompliziert ist aber ich komme einfach nicht weiter.
hab schon im forum gescuht, doch nichts apssenden gefunden.
ich lade einen template in ein memo.
danach will ich in einer bestimmten zeile den eintrag zwischen [ und ] auslesen
könnte mir jemand helfen und erklären wie ich sowas anstelle?
danke schonmal

[Dax]

Wenn du die Zeilennummer kennst und weisst, das [ und ] jeweils nur ein mal vorkommen, kannst du das so machen:

Delphi-Quellcode:

var
  temp, Inhalt: string;
begin
  temp := Memo1.Lines[LineNum];
  Inhalt := Copy(temp, Pos('[', temp)+1, pos(']', temp)-pos('[', temp)-1);
end;

[delphi_newbie_123]

ahaa danke sehr

[delphi_newbie_123]

danke nochmal, jetzt noch eine weitere dumme frage
wenn ein text zwischen " und " ausgelesen werden soll

[alcaeus]

:roll:

Überleg doch mal. Du könntest zum Beispiel das erste " mit Pos raussuchen, dann alles bis dorthin (inkl. dem ") mit Delete rauslöschen, dann das nächste " suchen und alles danach weglöschen.

Greetz
alcaeus

[delphi_newbie_123]

an ideen mangelts da nicht eher an den befehlen sorry aber danke.
kensnt du vielelciht ne seite, wo das arbeiten mit strings genauer beschrieben wird?

[alcaeus]

Die Tutorials helfen weiter, und notfalls die Onlinehilfe. So viel gibts da aber nicht:

Das sind so ziemlich die wichtigsten: [oh]Pos, Delete, Insert, Append, Copy[/oh]

Greetz
alcaeus

[delphi_newbie_123]

danke

[delphi_newbie_123]

letzte frage
Copy(temp, Pos(' "', temp)+1, pos('"', temp)-pos(' "', temp)-1);
sollte doch funktionieren ?
also es ist immer ein leerzeichen vor dem " am anfang

[alcaeus]

Nein, denn Pos('"', ...) kann das gleiche ergeben wie Pos(' "', ..)

Greetz
alcaeus

[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';