(* Die selbe Proc wie unten;
Ab dieser Position ( vom Ende der Unit aus gesehen ) funktioniert alles richtig
sowohl die Code-Vervollständigung als auch comp. und run.
procedure TNeuroNet.BitBtn1Click(Sender: TObject);
begin
StringGrid3.Visible := FALSE;
end; *)
(****************************** für SpriNN ************************************)
procedure TNeuroNet.SpeedButton14Click(Sender: TObject);
Var
MyStringList_1,MyStringList_2,MyStringList_3 : TStrings;
PfadName_1,PfadName_2,MyString :
STRING;
Zaehler,Position,i : integer;
begin
if (globMDIFensterOn = TRUE)
AND (AktieEingelesen = TRUE)
AND (active = TRUE)
THEN
begin
MyStringList_1 := TStringList.Create;
MyStringList_2 := TStringList.Create;
MyStringList_3 := TStringList.Create;
try
{ use the string list }
(* -------------------------------------------------------------------------------------------------------- *)
PfadName_1 := '
D:\Programme\Borland\Delphi6\Projects\MyMapMode\Quotes\'+ g_ComplName[MDIFNr];
PfadName_2 := '
G:\Programme\SPRINN\SpriNN Professional 3.0 (eng)\Data\'+ g_ComplName[MDIFNr] + '
.txt';
(* -------------------------------------------------------------------------------------------------------- *)
MyStringList_1.Clear;
MyStringList_2.Clear;
MyStringList_3.Clear;
MyStringList_1.LoadFromFile(PfadName_1);
MyStringList_1.Delete(0);
// die ersten 3 Zeilen löschen
MyStringList_1.Delete(0);
// die ersten 3 Zeilen löschen
MyStringList_1.Delete(0);
// die ersten 3 Zeilen löschen
Zaehler := MyStringList_1.Count;
For i := (Zaehler - 1)
DownTo 0
do // Reihenfolge vertauschen
begin // mit Hilfe von MyStrinList_3
MyStringList_3.Add(MyStringList_1[i]);
end;
MyStringList_1.Assign(MyStringList_3);
// und wieder MyStringList_1 zuordnen
For i := 0
To (Zaehler - 1)
do
begin
MyString := MyStringList_1.Strings[i];
Position := Pos('
-',MyString);
Delete(MyString,Position,1);
// 1.Bindestrich in Date löschen
Position := Pos('
-',MyString);
Delete(MyString,Position,1);
// 2.Bindestrich in Date löschen
Position := Pos('
,',MyString);
// Komma's löschen und mit Blank's auffüllen
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 1. Komma -> Blank
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 2. Komma -> Blank
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 3. Komma -> Blank
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 4. Komma -> Blank
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 5. Komma -> Blank
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
// 6.Komma -> Blank
Delete(MyString,Position,10);
// wichtig ! Korrektur-Daten löschen
Insert('
',MyString,Position);
Position := Pos('
,',MyString);
Delete(MyString,Position,1);
Insert('
',MyString,Position);
Insert(g_ShortName[MDIFNr],MyString,1);
// An 1. Stelle 'CODE' !
Trim(MyString);
// führende & folgende Leerstellen löschen
MyStringList_1.Delete(i);
// StringListe mit neuem 'MyString'
MyStringList_1.Insert(i,MyString);
// & überschreiben !!
MyStringList_2.Add(MyString);
end;
MyStringList_2.Assign(MyStringList_1);
MyStringList_2.SaveToFile(PfadName_2);
finally
MyStringList_1.free;
MyStringList_2.free;
MyStringList_3.free;
end;
end;
end;
procedure TNeuroNet.SpeedButton11Click(Sender: TObject);
begin
If PrinterSetUpDialog1.Execute
THEN
begin
// Dummy
end;
end;
// Test, der nicht funktioniert was NUR die Code - Vervollständigung betrifft
// jedoch lässt sich (ohne Code - Vervollständigung) alles korrekt kompilieren
// und das Prog. läuft auch korrekt
procedure TNeuroNet.BitBtn1Click(Sender: TObject);
begin
StringGrid3.Visible := FALSE;
end;
// Hier kommt oben erwähnter Error : unable to invoke Code...
// nach Eingabe des Punktes
end.