-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
ja aber da steht z.b
u8* und das makiert er nicht
er hatte aber das makiert gehabt
far u8*
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
ich glaub ich habe jetzt jeden verückt gemacht hier deshalb sage ich nochmal was ich will sonst kommen hier noch missverständnisse rein
also
ich habe folgende zeilen !
void REPSLCT(func_return_t* rep_select)
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
hier der 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
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
machen wir es mal so ich habe u8* und davo darf nix stehen kann man das so ändern ?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
wollte mich mal bedanke für die hilfe !
jetzt ist aber das problem immer noch da das wenn was findet mit *
z.b hier ein bespiel:
void REPSLCT(func_return_t* rep_select)
findet
eine bedienung soll ja sein das nix davor stehen darf !
also wenn das steht
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
okay lässt sich nicht ausführen wegen dem hier
procedure TFormDialog.Suche1Click(Sender: TObject);
begin
MyLastFindLine := SuchenInMemo( Memo1, Edit1.Text, Edit2.Text );
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
hier sagt er mir das ich ein simikolon vergessen habe aber das kann nicht sein
(str <> '*')//'*' steht alleine?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
dankeschön aber einige fehler gefunden er sagt mir bei
p: pos;
das was nicht stimmt und zwar : ,(, erwartet aber ,;, gefunden
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
Oder wäre "lkjgfgkdsfhgkshrbtz afkgjbhertb*" ein erlaubter string?
soll er mir nicht anzeigen da vor afkgjbhertb* noch ein wort ist !
würde alleine stehen etwa so
afkgjbhertb* dann soll er mir das anzeigen !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
also beispiele was erlaubt ist ! (LABEL ist ein Bespiel)
Label * ->soll er mir anzeigen weil es hier kein FAR gibt !
also mache ich selber eine korektur im Programm
Far Label *
OK! Das soll er mir nicht mehr anzeigen da jetzt Far da ist !
Das gleiche gilt bei x* soll er mir anzeigen ich verbessere das selber
far x*
okay jetz springt er weiter
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
gibt es dafür kein befehl bzw code für alles mögliche?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
ja aber das problem ist das da auch stehen kann u9* nicht unbedingt u8
es kann alles mögliche sein vor dem * und es muss eine leertaste davor sein
so : irgendwas|leer|irgendwas*
so irgendwas irgendwas*
wenn z.b das * alleine steht oder so ****** ohne das was direkt davor steht will ich das nicht angezeigt haben !
habt ihr mich verstanden ? ^^
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
muss auch nicht unbedingt mit edit arbeiten bzw mit edit feldern !
unit Dialog_u; { Projekt DIALOG * Herwig Reidlinger }
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
ok das danke es funzt aber das problem ist jetzt das es sehr lange braucht ^^
bzw denke ich mal wenn er nichts findet dann hänngt sich das auf....
bei einer kleineren datei funzt es aber bei einer gräßeren schmiert er ab...
glaub ich eine schleife die nicht endet^^
aber mein problem ist immer noch das mit dem * es mus vor dem * was stehen alphanummerisch und eine leertaste sein
und er soll...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
er kann es net compilieren er sagt mir das Count ein undefinierte Bezeichnung ist !
was soll ich da machen ?
und muss dich die function einbinden ?? irgendwo oder macht das delphie automatisch ?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
21. Nov 2008
ok ich war die woche nicht da muss mich jetzt wieder dran setzen danke ich werde posten wenn ich schwierigkeit habe !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
unit Dialog_u; { Projekt DIALOG * Herwig Reidlinger }
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Menus, StdCtrls;
type
TFormDialog = class(TForm)
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
kann das vielleicht einer amchen und hochladen ?
ich sitze hier schon 9stunden dran und habe es immer noch nicht !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
habe das jetzt so begin
For i:=0 to Memo1.lines.count - 1 do
If Pos(edit1.text, Memo1.Lines) = 0 Then // wenn der eine Suchtext in der Zeile nicht vorhanden ist
Memo1.Lines := StringReplace (Memo1.Lines, edit2.text, edit3.text);
er sagt mir aber das ich ungenügende parameter habe !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
hab ich auch gerade bemerkt danke aber er führt das jetzt nicht aus makiert mir das nicht mehr !
und ich weiß nicht was ich für irgendwas eingeben soll !
weil im text steht z.b u8* oder u9* in edit1 muss ich was eingeben für irgendwas*
und in edit2 far aber das funzt net !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
ich habe absolut 0plan sorry du musst mir mal rictig helfen hier mit dem prog ich wäre dir sehr dankbar also hier jetzt mein quellcode
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Menus, StdCtrls;
type
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
procedure TFormDialog.Suche1Click(Sender: TObject);
var
i: Integer;
a: string;
begin
Memo1.Lines.Add('');
Memo1.Lines.Text := ' ' + Memo1.Lines.Text;
for i:= 0 to memo1.lines.count-1 do begin
if pos(edit1.text, memo1.lines <> 0 then begin
if pos(edit2.text, memo1.lines <> 0 then begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
for i:= 0 to memo1.lines.count do begin
if pos(suchtext1, memo1.lines <> 0 then begin
if pos(suchtext2, memo1.lines <> 0 then begin
find = false;
end else begin
find = true;
end;
end else begin
find:= false;
end;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
Danke ich werde mich damit beschäftigen !
Ehm es ist sortiert da es ein C++ Quellcode ist !
Die kann ich ja öffnen und im Memo ausgeben !
Aber vielen DANK !
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Nitron,
18. Nov 2008
Hallo bin Neu hier und komme auch direkt zu meinem erstem Problem !
Ich muss eine Datei Programmieren in Delphi die eine Text datei öffnet und nach bestimmten Zeilen sucht.
Der Aufbau sieht so aus:
unit Dialog_u;
interface
uses