hier der
Delphi-Quellcode:
function SuchenInMemo( Memo : TMemo; NichtFindenStr : string; LastFindLine : integer = -1 ) : integer;
var
LineIdx : integer;
str: string;
p: integer;
begin
LineIdx := LastFindLine + 1;
Result := 0;
while
( LineIdx < Memo.Lines.Count ) and
( Result = 0 )
do
begin
str:= Memo.Lines[LineIdx];
p:= Pos( '*', str);// '*' finden;
if
(p > 0 ) and // '*' gefunden?
(Pos( NichtFindenStr, str ) = 0 ) and // NichtFindStr nicht gefunden?
(str[p+1] <> '*') and//'*' steht alleine?
(pos(' ', str) > 1)// kein leerzeichen nach dem ersten zeichen
then
begin
Result := LineIdx;
SelectLine( Memo, LineIdx );
end
else
Inc( LineIdx );
end;
end;
kannst du das verbessen so das er mir sowas auspuckt :
vor dem * irgendwas´(z.b u*) stehen und direkt nach dem *nix also nicht sowas u*u
und davor darf nicht stehen also nur sowas
u8*
u8* ;osos
darf er mir auspucken
das darf er mir nicht auspucken
han u8*
dann hätten wir eigentlich alles ich mache das array oder versuche das array zu machen ^^